bibloteker i vb

Dir$(Path) kan bruges!
if(Dir$(Path) <> "") then
  'It exists
else
  'It doesnt exist
end if

Se i MSDN hjælpen under Dir$ function!

//Nolle_K

Tja.. Eller kig i Object Browseren (F2) under VBA/FileSystem - Der ligger Dir$ funktionen sammen med en masse andre nyttige kommandoer!

Mvh. The Portal - http://www.theportal.dk

Begge de tidligere svar er inde på noget af det rigtige, men ikke helt.

Dir/Dir$ funktionerne har den ulempe at de ikke er reentrante. Der kan kun være en Dir "session" igang på et givent tidspunkt. Det betyder at hvis du er ved at lave en dir listning, og kalder en underfunktion der benytter dir funktionen, så ødelægger den resten af resultatet. Desuden har nolle_k's funktion den fejl at den returnerer true hvis en fil med path findes.

Min løsning er helt at undgå Dir() og bruge GetAttr() istedet:

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

Du kan ud fra dette også nemt selv lave en IsFile funktion hvis du behøver det.

Philip

Tak til jer alle 3 , men det fra Philip var lige det jeg skulle bruge.