Displaying files copied 3

[omegabeta]

How can I display in a window each file that are copied, like with COPY command launched from a .bat file ?

Thanks

 

[tsuji]

Hello omegabeta,

One demonstration is this.

source="d:\test\abc\"
destination="d:\test\def\"
set fso=createobject("scripting.filesystemobject")
set oFolder=fso.GetFolder(source)
msg="" : count=0
for each oFile in oFolder.Files
    oFile.copy destination, true
    msg=oFile.path & vbcrlf
    count=count+1
next
msg=msg & "        " & cstr(count) & "file(s) copied"
set oFolder=nothing
set fso=nothing
wscript.echo msg    'or do whatever you want with msg

regards - tsuji

 

[tsuji]

corection:

Did not get the msg formatting right. Here is the correction.

msg=[COLOR=green]msg[/color] & oFile.path & vbcrlf
'also this line
msg=msg & "        " & cstr(count) & " file(s) copied"

- tsuji

 

[PHV]

Try something like this:
srcdir="\path\to\srcdir"
destdir="\path\to\destdir"
Set SA=CreateObject("Shell.Application")
Set NS=SA.NameSpace(destdir)
NS.CopyHere srcdir,16

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[omegabeta]

Thanks to both. I cannot give a star because the link is not working properly...