penguinspeaks
Technical User
Hello all.
First question.
I am using FSO to loop through a folder and get the names of files. I want to upload all of the filenames to my DB.
I cannot seem to figure out how to loop through and do this.
Here is my code:
I have attempted to put a loop within the for next statement as this:
This gives me "Object required: ''" error.
How can I get this to loop through and input the data to the DB??
Thanks,
Penguin
Please keep in mind that I am using classic ASP with MySQL database. Not sure if that information helps or not.
First question.
I am using FSO to loop through a folder and get the names of files. I want to upload all of the filenames to my DB.
I cannot seem to figure out how to loop through and do this.
Here is my code:
Code:
<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>
<HTML>
<HEAD>
<TITLE>Display Directory</TITLE>
</HEAD>
<BODY>
<TABLE cellpadding=5>
<TR align=center>
<td align=left>File Name</td>
<td>File Size</td>
<td>Last Modified</td>
</TR>
<%
For Each objFileItem In objFolderContents
Response.Write "<TR><TD align=left>"
Response.Write objFileItem.Name
Response.Write "</TD><TD align=right>"
Response.Write objFileItem.Size
Response.Write "</TD><TD align=right>"
Response.Write objFileItem.DateLastModified
Response.Write "</TD></TR>"
Next
%>
</TABLE>
</BODY>
</HTML>
Code:
<%
Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
%>
<HTML>
<HEAD>
<TITLE>Display Directory</TITLE>
</HEAD>
<BODY>
<TABLE cellpadding=5>
<TR align=center>
<td align=left>File Name</td>
<td>File Size</td>
<td>Last Modified</td>
</TR>
<%
For Each objFileItem In objFolderContents
[indent][/indent]sql="insert into filenames (FILENAME_) VALUES ('"&objFileItemAacute&"')"
[indent][/indent]CONN.EXECUTE(SQL)
Response.Write "<TR><TD align=left>"
Response.Write objFileItem.Name
Response.Write "</TD><TD align=right>"
Response.Write objFileItem.Size
Response.Write "</TD><TD align=right>"
Response.Write objFileItem.DateLastModified
Response.Write "</TD></TR>"
Next
%>
</TABLE>
</BODY>
</HTML>
How can I get this to loop through and input the data to the DB??
Thanks,
Penguin
Please keep in mind that I am using classic ASP with MySQL database. Not sure if that information helps or not.