Έλεγχος εάν υπάρχει το Folder

[γιώργοςΚ]

Καλησπέρα σε όλους,

Βρήκα αυτό τον κώδικα απο την Microsoft και θα ήθελα κάποιος να με βοηθήσει ώς προς τον τρόπο με τον οποιο μπορώ να καλέσω αυτη την εντολή μέσω command button

O κωδικας είναι o πιο κάτω και το Path το δικό μου θέλω να είναι "c:\ProgramData\Dash"

Function ReportFolderStatus(fldr)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(fldr)) Then
msg = fldr & " exists."
Else
msg = fldr & " doesn't exist."
End If
ReportFolderStatus = msg
End Function

Δοκίμασα να καλέσω τον κώδικα απο command button γράφωντας μόνον το ReportFolderStatus αλλά δεν δουλεύει.....δοκίμασα επίσης το ReportFolderStatus()

Φιλικά

[vraxnakisg]

Γεια σου Γιώργο,
Η συνάρτηση έτσι όπως είναι φτιαγμένη περιμένει ένα όρισμα μέσα στις παρενθέσεις, το όρισμα αυτό είναι η διαδρομή που θέλεις να τσεκάρεις.
Δες το συνημμένο αρχείο.

[γιώργοςΚ]

Φίλε Γιώργο γειά σου,

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

Νάσαι καλά πάντως και σε ευχαριστώ άλλη μια φορα.