Newsgroup: it.comp.os.win.xp
Titolo: come fare un paste multiplo in batch?

Sto facendo un lavoro per cui devo fare numerosi paste multipli.
Mi spiego, devo copiare un file zip e incollarlo tipo 20 volte nella
stessa cartella (dopodiché faccio piccole modifiche a ognuno, ma questo è
un altro discorso).
Il problema è che fare 20 volte il Ctrl+V fa perdere molto tempo, perché
alcuni di questi ZIP sono grossini (dai 5 ai 10 Mb).
Non c'è un modo per fare un "batch" di Ctrl+V?
Vorrei questa procedure:
1- Ctrl+copy il file che voglio duplicare
2- fare un batch-command per incollarlo 20 volte nella stessa cartella (e
windows provvederà da solo a cambiare nome in "copia (1) di ecc...")
Grazie!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 stessa cartella
 queuesto VBS e' "terra terra" fatto al volo .. si puo' far di meglio[1]
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_001.zip"
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_002.zip"
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_003.zip"
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_004.zip"
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_005.zip"
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_006.zip"
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_007.zip"
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_008.zip"
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_009.zip"
fs.CopyFile "C:\Start\X.zip", "C:\Dest\X_010.zip"
'ecc
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Copy.vbs)
'se ti da' errore disattiva l'antivirus
[1]
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
--
Fosco

 un file zip e incollarlo tipo 20 volte nella  stessa cartella
'ahh vuoi fare tutto nella stessa cartella :
Set fso = CreateObject("Scripting.FileSystemObject")
Set oArgs = WScript.Arguments
For I = 0 To oArgs.Count - 1
theFilename = oArgs(I)
next
   str =  oArgs(0)
    Do
        iPos = InStr(iPos + 1, str, "\")
        iCnt = iCnt + 1
    Loop While iCnt <= 3
    strF = Left(str, iPos)
    strS = Mid(str, iPos + 1)
Msgbox strF
Msgbox strS
fso.CopyFile oArgs(0), strF&"copy_000"&strS
fso.CopyFile oArgs(0), strF&"copy_001"&strS
fso.CopyFile oArgs(0), strF&"copy_002"&strS
fso.CopyFile oArgs(0), strF&"copy_003"&strS
fso.CopyFile oArgs(0), strF&"copy_004"&strS
fso.CopyFile oArgs(0), strF&"copy_005"&strS
fso.CopyFile oArgs(0), strF&"copy_006"&strS
fso.CopyFile oArgs(0), strF&"copy_007"&strS
fso.CopyFile oArgs(0), strF&"copy_008"&strS
fso.CopyFile oArgs(0), strF&"copy_009"&strS
fso.CopyFile oArgs(0), strF&"copy_010"&strS
'ecc .. vai avanti tu sempre con lo stesso metodo
''Metti il vbs sopra nella STESSA cartella dello ZIP che vuoi copiare
'e trascinaci sopra lo ZIP stesso ... togli i Msgbox per un uso effettivo
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio CopyZip.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

 'ahh vuoi fare tutto nella stessa cartella :
CUT
Guarda, ti ringrazio tantissimo, sei stato iper gentile!
L'altro script, il primo, mi funziona, anche se la seccatura è che devo
riscriverlo ogni volta con il filename giusto quando cambio file da
copiare.
Il secondo, questo, invece, non mi funziona, mi dà "errore di script", ma
può benissimo darsi che abbia fatto io qualcosa di sbagliato, perché mi
limito a copiare bovinamente quello che mi hai passato, dal momento che
non ci capisco un accidente!  8-(


 copiare 'e trascinaci sopra lo ZIP stesso ...
--
Fosco

 può benissimo darsi che abbia fatto io qualcosa di sbagliato [...]
No ,la cappellata l'ho fatta io prendendo un po' di qua un po'
di la senza controllare il lavoro
L'ultimo che ho postato dovrebbe essere quello giusto per te .. continua
semplicemente tu dopo a mamo aggiungendo
fso.CopyFile oArgs(0), sScriptPath &"copy_006"&fName
fso.CopyFile oArgs(0), sScriptPath &"copy_007"&fName
'ecc fino a dove vuoi tu
lo script lo salvi nella stessa cartella dove hai lo ZIP (o qualsiasi altro file)
e cove cuoi che vengano fatte le copie
un po' di info basilari :
"oArgs(0") e' il nome completo del file da copiare  "sScriptPath"  e' la fullpath
dello script stesso "fname" e' il nome del file
PS:
se non va bene posta pure che rimediamo :-)
--
Fosco

"Fosco"
'questo rende i file piu' "leggibili" dopo la copia
'PS:
'puoi modificare a piacimento anche tu stesso la parte
'"copy_001_"  basta che stia dentro i due "......."  e NON
'tocchi   sScriptPath  e fName  che sono le variabili indispensabili
sFullName = Wscript.ScriptFullName
sName = Wscript.ScriptName
sScriptPath = Left(sFullName, InStrRev(sFullName, sName) - 2)
Set oShell = CreateObject("Wscript.Shell")
oShell.CurrentDirectory = sScriptPath
Set oArgs = WScript.Arguments
Set Fso = CreateObject("Scripting.FileSystemObject")
fName = FSO.GetFileName(oArgs(0))
sScriptPath = sScriptPath&"\"
fso.CopyFile oArgs(0), sScriptPath &"copy_001_"&fName
fso.CopyFile oArgs(0), sScriptPath &"copy_002_"&fName
fso.CopyFile oArgs(0), sScriptPath &"copy_003_"&fName
fso.CopyFile oArgs(0), sScriptPath &"copy_004_"&fName
fso.CopyFile oArgs(0), sScriptPath &"copy_005_"&fName


 "oArgs(0") e' il nome completo
none
oArgs(0")  e'    la fullpath\connomefile.estensione
--
Fosco