undersøge om en bestemt mappe findes

Public Sub Test()
a = IsDir("D:\FO\Docu")
End Sub

Public Function IsDir(Path As String) As Boolean
  Dim Attr As VbFileAttribute
 
  On Error Resume Next
  Attr = GetAttr(Path)
  If Err = 0 Then
    IsDir = ((Attr And vbDirectory) = vbDirectory)
  Else
    IsDir = False
  End If
  On Error GoTo 0
End Function

hvordan fungerer den?
hvor indsætter jeg den mappe jeg skal tjekke om eksisterer?

Public Sub Test()
If Not IsDir("D:\FO\Docu\den mappe der skal tjekkes") Then
MkDir "D:\FO\Docu\den mappe der skal tjekkes"
End If
End Sub

det funkler... mange tak...
smider du et svar?

et svar ;-))

tak for point