Σύνταξη συνθήκης if

[dmarop]

Γεια σας,

Θα ήθελα την βοήθεια σας στο εξής:
Έχω μια βάση δεδομένων που στέλνω emails. Το email έχει ένα συνημμένο αρχείο. Επειδή την συγκεκριμένη βάση την χρησιμοποιώ από 2 διαφορετικούς υπολογιστές χάνεται η διαδρομή του αρχείου.

Θα ήθελα να βάλω μια συνθήκη που αν δεν βρίσκει το συνημμένο αρχείο στην πρώτη διαδρομή να πηγαίνει στην δεύτερη.

Για παράδειγμα:
if c:\Users\Desktop\Dropbox\Test.doc
else c:\Users\Laptop\Dropbox\Test.doc

Αυτό μπορεί να γίνει;

Ευχαριστώ

[Tasos]

Καλησπέρα!

Οι φάκελοι Dropbox ή Google Drive δημιουργούνται αυτόματα κατά την εγκατάσταση των αντίστοιχων προγραμμάτων στη διαδρομή %UserProfile%.

Θα χρειαστεί η συνάρτηση Environ("UserProfile") που θα μας επιστρέψει τη διαδρομή του φακέλου.

Γενικό παράδειγμα:

Option Explicit

Sub test()
    Dim AttachmentFileName As String
    
    '...Code for OL Object...
    
    AttachmentFileName = GetDocFileFromDropbox("test.doc")
    If AttachmentFileName <> vbNullString Then
     ' myEmail.Attachments.Add AttatchmentFileName
    End If
End Sub

 ' Η συνάρτηση αυτή θα επιστρέψει την διαδρομή του test.doc στον φάκελο του Dropbox.
Function GetDocFileFromDropbox(docFile As String) As String
    Dim DropBoxPath As String
    DropBoxPath = Environ("userprofile")
    If Right(DropBoxPath, 1) <> "\" Then DropBoxPath = DropBoxPath & "\"
    DropBoxPath = DropBoxPath & "Dropbox\" & docFile
    If Dir(DropBoxPath, vbDirectory) <> vbNullString Then
        GetDocFileFromDropbox = DropBoxPath
    End If
End Function

Καλή συνέχεια!

Τάσος

[dmarop]

Καλησπέρα Τάσο,

Ευχαριστώ πολύ για την άμεση απάντησή σου και για την βοήθεια σου.

Δημήτρης