hi everybody...
is me again...
hahaha....:D
my supervisor now asking me to copy all the filename from one folder to a text file or insert into database..
it's becasue his system will generate a log file for what document had print. so after that we need use two text file to make comparition...
if any filename mismatch then response. write in the page. so that mean the document is not printed yet
so need to re-print again....
after this save all mismatch filename to a log file as a backup info..
thats all.....
thank you for your help.......

bey

Hi bey,

By now, you should be comfortable using FSO. Try to code that yourself and post here if you face any problems.

Cheers!

_________________________
- Vijay G
Strive for Perfection

hi Vijay G,
thank you so much.....
finally i can solve this problem yet..........
but now i facing new problem now.....
can i give user 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








%>