Έλεγχος εάν υπάρχει το 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()

Φιλικά