VBA: undersøg om der er adgang til en bestemt sti - fx. c:\test

... jeg skal faktisk også kunne teste på om en bestemt fil findes - fx. c:\test\temp.tmp !

Du kan bruge FileSystemObject:


Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists("c:\test\temp.tmp") MsgBox("Filen findes")
if objFSO.FolderExists("c:\test") MsgBox("Mappen findes")
Set objFSO = Nothing

Msdn FileSystemObject:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vaobjfilesystemobject.asp

FileExists:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vamthfileexists.asp

FolderExists:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vamthfolderexists.asp

Det nemmeste er at bruge len og dir:

Tjek om c:\test er der:
If len(dir("c:\test",vbDirectory))>0 then
  'den er der
else
  'den er der ikke
end if


Tjek om c:\test\temp.tmp er der:
If len(dir("c:\temp.tmp"))>0 then
  'den er der
else
  'den er der ikke
end if

Idanielsen - skriv et svar hvis du vil ha' dine point (fin løsning :)

Mvh. Mads.

Tak for det.

Men hvis jesperfjolner's virker, så er det da virkelig let!

Det gør det ;-)
FileSystemObject kan en masse ting, og man får flere muligheder hvis man tilføjer en reference til det i ens database.
Men til mindre ting, såsom at tjekke en fil, vil jeg mene at det giver unødvendigt "overhead"/ressourceforbrug.
Len og dir er jo meget simple indbyggede funktioner.

Enig, havde bare ikke prøvet det før.

madsuggerby, hvis du kan bruge det synes jeg at jesperfjoelner skal ha' point'ene

Pyt med det, nu fik jeg også kigget lidt på FSO , så det er helt fint :-)

Tak til jer begge - men jeg brugte FSO derfor pointene til Idanielsen !

/Mads