Backup/Kopiering

Her er et eksempel fra "Avanceret windows 98" af Jan Arent(hæftet kan fås på IDG forlag)

'skriv denne kode i en vbs-fil
-------------------------------
Wscript.Echo "STARTER "& Time

function ShowFolderList(folderspec, ByVal indryk)
  Set WshShell = Wscript.CreateObject("Wscript.Shell")
  indryk = indryk &"-"
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(folderspec)   
  Set fc = f.SubFolders
  For Each f1 in fc
    s = f1.name
    Wscript.Echo indryk & s
    ShowFolderList folderspec &"\"& s, indryk
  Next
  myCommand = "command /c cd " & folderspec &" | "& myArgList
  'Wscript.Echo (myCommand)
  WshShell.Run myCommand, 0, 1
  Wscript.DisconnectObject WshShell
  Set WshShell = NOTHING
End function

myArgList=" "
Set objArgs = Wscript.Arguments
For i = 0 to objArgs.Count - 1
  myArgList = myArgList &" "& objArgs(i)
Next

ShowFolderList ".", "+"
--------------------------------
læg filen i roden af det drev hvor det skal virke

start en dos-promt

skriv f.eks:
c:\>cscript dinfil.vbs copy *.doc c:\windows\skrivebord

dette vil kopiere alle doc-fil på drevet til dit skrivebord.

håber du kan bruge det.......Dan