Newsgroup: it.comp.os.win.xp
Titolo: xcooy32 con XP?

con 98 facevo il backup dei files più importanti con un file .bat, con una 
sequenza di istruzioni xcopy32
con XP come si fa? non mi pare accetti files .bat....
non mi interessa un utility di backup che comprima i files... li vorrei in 
chiaro, come succede con xcopy32
grz 


si incontrarono e si sviluppò un nuovo idioma:

Certo che accetta i BAT.
Però il comando è "xcopy" e basta.
-- 
_-=SiMcarD=-_ ®
->ICQ: 59-575-403<-
"Su internet si puo' ascoltare la radio pagando il telefono."

 con XP come si fa? non mi pare accetti files .bat....
Prova a vedere se questo esempio *.vbs generico funziona su XP (dovrebbe):
' Copia TUTTI  i *.log del Hard Disk in c:\ in "C:\BackupsTest\"
' mantenendo ANCHE la struttura originale delle cartelle di provenienza
' cosi in caso anche ci fossero  due doc con lo stesso nome
' si piu' risalire all'origine ho messo un on error resume next
' perche' non ho avuto modo di testarlo a fondo e se per caso un
' log NON e' (per qualsiasi motivo) copiabile lo script NON si interrompe
' si puo' fare con TUTTI i file basta cambiare *.log con quello che si vuole
On Error Resume Next
Const OPEN_FILE_FOR_READING = 1
filename = "install.log"
Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
'newf.WriteLine  "start: " & now
sCmd = "%comspec% /c dir c:\*.log /s /b > c:\TxtList.txt"
oShell.run sCmd,0,1
sText = fso.opentextfile("c:\TxtList.txt").readall
'newf.WriteLine  "finish: " & now
newf.WriteLine  sText
newf.Close
oShell.run"install.log"
strOFile ="install.log"
 If Not fso.FolderExists("C:\BackupsTest") Then
  fso.CreateFolder("C:\BackupsTest")
  End if
sp = "C:\BackupsTest\"
Set objInputFile = fso.OpenTextFile(strOFile, 1)
inputData = Split(objInputFile.ReadAll, vbNewline)
For Each Arg In inputData
   ' WScript.Echo Arg
Next
For Each arg In inputData
  i2 = InStrRev(Arg, "\")
   'msgbox i2
  Arg2 = Left(Arg, (i2 - 1))
  'msgbox arg2
  strTestString = arg2
 iPos = InStr(iPos + 1, strTestString, "\")
        iCnt = iCnt + 1
    strFirst = Left(strTestString, iPos)
    strSecond = Mid(strTestString, iPos + 1)
   'MsgBox strTestString
   ' MsgBox strFirst
   ' MsgBox strSecond  'bingo
     WScript.Sleep 100
strSecond = strSecond &"\"
  ' Msgbox sp&strSecond
   If Not (fso.FolderExists(sp&strSecond))  Then
      ' fso.CreateFolder(sp&strSecond)
      Set fo = CreateFolderPath(sp&strSecond)
    End if
'msgbox arg&sp&strSecond
    FSO.CopyFile arg, sp&strSecond, True
    next
FSO.CopyFile "Install.log", sp, True
Msgbox"fatto"
Set MyFile = fso.GetFile("c:\TxtList.txt")
MyFile.Delete
Function CreateFolderPath(Path)
    If not fso.FolderExists(fso.GetParentFolderName(Path)) Then
      Call CreateFolderPath(fso.GetParentFolderName(Path))
    End If
    Set CreateFolderPath = fso.CreateFolder(Path)
End Function
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

 Però il comando è "xcopy" e basta.
domani provo
con win98 xcopy vede solo le prime 8 lettere del vecchio caro dos, xcopy32 
qualunque lunghezza
non mi ero accorto che in XP xcopy32 semplicemente non esiste
da verificare però se taglia i nomi a 8 lettere... 

 da verificare però se taglia i nomi a 8 lettere... 
No, non taglia.
-- 
Flavio Visentin
Membro del CICAP
Comitato Italiano per il Controllo delle Affermazioni di P4