Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

fso Question 1

Status
Not open for further replies.

penguinspeaks

Technical User
Nov 13, 2002
234
US
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:
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>
I have attempted to put a loop within the for next statement as this:
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>
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.
 
Should it not be just objFileItem.Name in the sql?
 
You are correct. Sometimes you cannot see the forest for the trees.
Many thanks!!

Thanks,
Penguin
Please keep in mind that I am using classic ASP with MySQL database. Not sure if that information helps or not.
 
I am also working with MySQL database. It works OK.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top