This is my code:
<%
Dim myFSO, myFolder
Set myFSO = Server.CreateObject("Scripting.FileSystemObject")
Set myFolder = myFSO.GetFolder (Request.Form ("txtKeywords"))
Response.Write("Current folder is: " & myFolder.Name)
For Each fileItem In myFolder.Files
Response.Write("
" & fileItem.Name)
'declare our variables
Dim myFile, objFSO
'create instances of the objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set myFile = objFSO.GetFile("Request.Form ('txtKeywords') & '/' & fileItem.Name")
'display information
Response.Write "The file was last accessed on " & myFile.DateLastAccessed
'delete our object variables
Set objFSO = Nothing
Set myFile = nothing
Next
Set myFolder = nothing
Set myFSO = nothing
%>
I keep getting an error saying that it can't find the file.
2007-02-27
12:14:00
·
3 answers
·
asked by
curtis_3862552
2