o se no...
Dim nFile As String
Set fso = CreateObject("Scripting.FileSystemObject")
nFile = "C:\WINDOWS\WIN.COM"
if fso.fileExists(nFile) Then
MsgBox "Il file " & nFile & " esiste"
else
MsgBox "Il file " & nFile & " non esiste!"
End if
o se no...
Dim nFile As String
Set fso = CreateObject("Scripting.FileSystemObject")
nFile = "C:\WINDOWS\WIN.COM"
if fso.fileExists(nFile) Then
MsgBox "Il file " & nFile & " esiste"
else
MsgBox "Il file " & nFile & " non esiste!"
End if
jabjoint