file existing or not

[dorling]

hi there,

this is a very easy question so here goes!!!

i basic need to find out if a file existing or not?

i need to do this using the if command

thanks in advance

Jonathan D

 

[Creto]

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

 

[dorling]

how do i call this function

thanks in advance

Jonathan D

 

[Creto]

Throw the function somewhere... either in the top of the page or if you have a include file for functions, in there...

Call it by doing something similar..

Response.Write ReportFileStatus("C:\boot.ini")

Note, you'll need to use the server's pathing. The file you're checking has to be on the server, so you'll need to put in whatever path is necessary to get to the file, and if you know all the files are going to be in the same location, you can prebuild the path and have the "filespec" be just the file name itself and then concatenate it with the path before running it through the FSO.