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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Σύνταξη συνθήκης if (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2236-sintaksi-synthikis-if.html)

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

Γεια σας,

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

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

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

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

Ευχαριστώ

Καλησπέρα!

Οι φάκελοι 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

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

Τάσος

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

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

Δημήτρης