hi everybody,
i'm try to do a system which user can choose folder for the system copy all the file name inside the folder to database...
that mean user can select which folder there want ( mean insert a variable in )
<set fo=fs.GetFolder("C:\bey\datachecklist\DataCheckLis t\DataCheckList\compare\")>
so everytime user can select which folder filename want to insert to database..

my coding is as below for copy file from folder to database :

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set fo=fs.GetFolder("C:\bey\datachecklist\DataCheckLis t\DataCheckList\compare\")
Dim objFSO, objTextFile
Dim sRead, sReadLine, sReadAll
Const ForReading = 1, ForWriting = 2, ForAppending = 8


    Dim Conn_str, rs, SQL
    Set Conn_Str = Server.CreateObject("ADODB.Connection")
    Conn_str.Open "Provider=SQLOLEDB;Data Source=stardocs-1foniw;UID=sa;PWD=sa;DATABASE=checklistsystem"
       'Print the name of all files in the test folder
      'Set objFSO = CreateObject("Scripting.FileSystemObject")
    'Set objTextFile = objFSO.CreateTextFile("C:\bey\datachecklist\DataCh eckList\DataCheckList\compare\try.txt", True)

for each x in fo.files


    'objTextFile.Writeline(x.Name)

      'Response.write(x.Name & "<br />")
  session("filename") = x.Name
  session("date") = date()
  Set rs = Server.CreateObject("ADODB.Recordset")
  SQL = "insert into try(filename,date) values('"&session("filename")&"','"&session("date" )&"')"
  set rs = conn_str.execute(sql)

     next
    set fo=nothing
    set fs=nothing








%>