Verificare la presenza di un file

[Grinder]

Come si fa a verificare se in una determinata cartella è presente un determinato file?

[casino10]

Tratto dalla guida vbs

Function ReportFileStatus(filespec)
  Dim fso, msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists(filespec)) Then
    msg = filespec & " exists."
  Else
    msg = filespec & " doesn't exist."
  End If
  ReportFileStatus = msg
End Function

Bye!

[Grinder]

Aspetta, non voglio dei messaggi popup, mi serve per creare una condizione "se file.a esiste allora fai questo, altrimenti fai quest'altro"

[casino10]

Function file_sino(nomefile)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(nomefile)) Then
file_sino=true
Else
file_sino=false
End If
End Function

if file_sino("c:\tmp.txt")=true then
'codice se esiste il file
else
'codice se non esiste
end if

[Grinder]

Grassie