Not sure how to read the actual file, but I can tell you how to get a list of all the files:
Quote:
'------------------------------------------------------------------------
' List Files on the server.
'------------------------------------------------------------------------
dim fso, folder, files, file
dim intTotalFiles
dim strDir
strDir = "\\Mysever\Mypath\"
'-----------------------------------------------
' Files Location
'-----------------------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(strDir)
Set files = folder.Files
'-----------------------------------------------
' Look at each file
'-----------------------------------------------
intTotalFiles = 0
For Each file in Files
intTotalFiles = intTotalFiles +1
response.write(file.Name) '--filename
response.write(file.DateLastModified) '-datelastmodified
Next
'-----------------------------------------------
' Cleanout objects
'-----------------------------------------------
Set files = nothing
Set file = Nothing
Set fso = Nothing
|
That should get you halfway there.