Newsgroup: it.comp.aiuto
Titolo: Re: Creazione di un comando dos.

 Qualcuno e' cosi gentile da crearmelo?
Richiesta chiarimenti:
a) prima di cancellare la cartella PIPPO occorre trasferirla?
b) in fumetti la cartella PIPPO è vuota?
N.B: le due cartelle PIPPO possono coesistere senza alcun problema senza 
necessità di cancellare la prima
i comandi stanno su 3 righe al max, ma se non ti spieghi meglio rischi di 
ricevere qualcosa che non funziona secondo le tue richieste
ciao, astoit 

 Qualcuno e' cosi gentile da crearmelo?
'Vbs le' istes
' OCCIO che la cancellazione NON passa dal cestino
set oShell = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
Msgbox "Deletes C:\Cartoni\Pippo"
  sSrc = "C:\Fumetti\Pippo"
  sDest = "C:\Cartoni\"
fs.DeleteFolder"C:\Cartoni\Pippo"
WScript.Sleep 500
' copia
fs.CopyFolder  sSrc , sDest
''''' sposta
''''' fs.MoveFolder  sSrc , sDest
Msgbox"Fatto"
'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

 da aggiungere o modificare? :-)
Tutto uguale tranne che forse in cartelle con spazi bisogna
o usare il nome dos 8.3  (lo vedi in proprieta)  o aumentare  """ """
faccio l'esempio in 8.3 cosi non sballa le righe
set oShell = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
Msgbox "Deletes Pippo"
  sSrc = "C:\DOCUME~2\MIONOME\FUMETTI\PIPPO"
  sDest = "C:\DOCUME~2\MIONOME\DATIAP~1\MACROM~1\"
fs.DeleteFolder "C:\DOCUME~2\MIONOME\DATIAP~1\MACROM~1\PIPPO"
WScript.Sleep 500
' copia
fs.CopyFolder  sSrc , sDest
''''' sposta
''''' fs.MoveFolder  sSrc , sDest
Msgbox"Fatto"
--
Fosco

 Tutto uguale tranne che forse in cartelle con spazi bisogna
Ricordavo male ... il FSO  supporta anche i nomi lunghi
 sSrc = "C:\Documents and Settings\MioNome\Fumetti\Pippo"
  sDest = "C:\Documents and Settings\MioNome\Dati applicazioni\Macromedia"
fs.DeleteFolder "C:\Documents and Settings\MioNome\Dati applicazioni\Macromedia\Pippo"

 il comando di Fosco e' diverso. Mi sfugge qualcosa? :-)
Lol mo' so cazzi tua EL
Prendi il mio e modifica i percorsi  ....  to prova direttamente questo
fatti una copia di sicurezza dei dati prima
set oShell = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
Msgbox "Deletes Pippo"
  sSrc = "C:\Documents and Settings\Nick\Desktop\Flash Player"
  sDest = "C:\Documents and Settings\Nick\Dati applicazioni\Macromedia\"
fs.DeleteFolder "C:\Documents and Settings\Nick\Dati applicazioni\Macromedia\Flash Player"
' le 3 righe sopta devono stare su una riga


 ' le 3 righe sopta devono stare su una riga
questa insomma che verra spezzata probabilmente dai newsreader
in due righe
fs.DeleteFolder "C:\Documents and Settings\Nick\Dati applicazioni\Macromedia\Flash Player"
' e'  UNA riga sola
Probabilmente devi settare il notepad  senxa il a capo automatico
--
Fosco

 Va bene cosi?
si le' istes ...  invece di eliminare i files elimina direttamente tutta la folder
ecco qui il coso che con un copia incolla dovrebbe funzionare
senza nessuna modifica
'fatti una copia di sicurezza dei dati prima
set oShell = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
  sSrc = "C:\Documents and Settings\Nick\Desktop\Flash Player"
  sDest = "C:\Documents and Settings\Nick\Dati applicazioni\Macromedia\"
fs.DeleteFolder "C:\Documents and Settings\Nick\Dati applicazioni\Macromedia\Flash Player"
' le 3 righe sopra devono stare su una riga
WScript.Sleep 500
' copia
fs.CopyFolder  sSrc , sDest
''''' sposta
''''' fs.MoveFolder  sSrc , sDest
Msgbox"Fatto"
--
Fosco

 e' stata sovrascritta da quella presente in
Tecnicamente NON e' stata sovrascritta ma eliminata quella in
Dati applicazioni\Macromedia\  e copiata quella  da Nick\Desktop\
come detto il fso.delete NON passa dal cestino percio' fatti
sempre un backup prima se sono dati sensibili
--
Fosco

 bene. grazie.
Denada
ciau
--
Fosco