VB Script copy file

hi

i trying copy file folder folder name random on each pc how can fso or way in vb script ?

for example.

the folder structure maybe

c:\folder1\test\live\765765675\

and need copy file called hello.txt folder on  each pc folder after \live random number ?

can give me example code ?

any ideas ?

thanks

you can use filesystemobject this. if randomly named folder sub folder of "live" folder, code similar following:

option explicit    dim objfso, objfolder, objsubfolder, strfile, strsource    strsource = "\\myserver\myshare"  strfile = "hello.txt"    set objfso = createobject("scripting.filesystemobject")  set objfolder = objfso.getfolder("c:\rlm\scripts\test")  each objsubfolder in objfolder.subfolders      objfso.copyfile strsource & "\" & strfile, _          objsubfolder.path & "\" & strfile  next  

or, if there more 1 sub folder, above copy designated file sub folders. if 1 of sub folders has numeric name, can use isnumeric function find it. example:

option explicit    dim objfso, objfolder, objsubfolder, strfile, strsource    strsource = "\\myserver\myshare"  strfile = "hello.txt"    set objfso = createobject("scripting.filesystemobject")  set objfolder = objfso.getfolder("c:\rlm\scripts\test")  each objsubfolder in objfolder.subfolders      if (isnumeric(objsubfolder.name) = true)          objfso.copyfile strsource & "\" & strfile, _              objsubfolder.path & "\" & strfile      end if  next

richard mueller

---

mvp adsi

Windows Server  >  Windows Server General Forum