kolla om en katalog existerar

Sök info om FSO (File scripting object)

FolderExists

Här får du ett ex.

Function ReportFolderStatus(fldr)
   Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FolderExists(fldr)) Then
      msg = fldr & " mappen finns"
   Else
      msg = fldr & " mappen finns inte"
   End If
   ReportFolderStatus = msg
End Function

//Broskan

Lösningen!

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

Tack Roady!

Tack Broskan!