Newsgroup: it.comp.aiuto
Titolo: spostare una cartella

Per la precisione, una mailbox di Eudora, non di programma ma creata
dall'utente.  In pratica, quando non utilizzo il computer, vorrei che
la mailbox fosse nascosta in qualche improbabile sottocartella, quando
uso il computer e in particolare Eudora, la mailbox deve ritornatrre
al suo posto. Questioni di segretezza,  non so se si č capito...
Anzichč fare manualmente il doppio spostamento, non c'č un'operazione
veloce (tipo i deliziosi file batch del vecchio caro Dos) che renda il
tutto meno macchinoso ?
Grazie da Anna.

 tutto meno macchinoso ?
Spulcia qui prendi quello che ti serve e modifica .. e' quello che adopero io
per Outlook Express :
set oShell = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
sSrc = "C:\WINDOWS\APPLIC~1\IDENTI~1\{1FED7~1\MICROS~1\OUTLOO~1\TTTT"
 sDest = "C:\WINDOWS\TEMP\"
  fs.MoveFolder  sSrc , sDest
sSrc1 = "C:\WINDOWS\APPLIC~1\IDENTI~1\{1FED7~1\MICROS~1\OUTLOO~1\*.*"
sDest2 = "C:\WINDOWS\APPLIC~1\IDENTI~1\{1FED7~1\MICROS~1\OUTLOO~1\TTTT"
 If Not fs.FolderExists( sDest2) then
  fs.CreateFolder( sDest2)
 End If
fs.CopyFile  sSrc1 , sDest2
oShell.Popup "FATTO.",2,"title...",vbInformation+vbSystemModal
'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
'questo lo adopero con dustbuster  sposta la cartella Sysbckup (i file *.cab)
'e dopo li riporta alla posizione otiginaria :
'Questo e' testato e funzionante con
'C:\Programmi\DustBuster\dustbuster 261.exe
'O (meglio) ti scarichi il 261  oppure lo adatti al 2.6
' penso che dovrebbe funzionare basta che tu cambi questo
'Set oExec = WshShell.Exec("C:\PROGRA~1\DUSTBU~1\DUSTBU~1.EXE")
'con
'Set oExec = WshShell.Exec("C:\Programmi\DustBuster\dustbuster26.exe")
' se dovesse dare errore le path lunga o la metti 8.3 come la mia oppure
'Set oExec = WshShell.Exec("""C:\Programmi\DustBuster\dustbuster26.exe""")
'inizio
Const ssfDRIVES = &H11
Set fso = CreateObject("Scripting.FileSystemObject")
 If Not fso.FolderExists("C:\BACKUP") then
  fso.CreateFolder("C:\BACKUP")
 End If
dirPartenza = "C:\WINDOWS\SYSBCKUP\"
     nomeFile = "*.cab"
      dirArrivo = "C:\Backup"
      fso.CopyFile dirPartenza & nomeFile, dirArrivo, True
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("dustbuster 261.exe")
Do While oExec.Status = 0
     WScript.Sleep 10
Loop
' aspetti che dustbuster si chiuda
''''''msgbox "Dustbuster ha finito"
' e poi riporti i cab dove devono stare
dirPartenza = "C:\Backup\"
     nomeFile = "*.cab"
      dirArrivo = "C:\WINDOWS\SYSBCKUP"
   fso.CopyFile dirPartenza & nomeFile, dirArrivo, True
'togli il msgbox se da fastidio basta cancellare la riga
' o metterci  '   davanti  >> cosi >> 'Msgbox "FATTO"
 Msgbox "FATTO"
' si puo eliminare la cartella c:\backup volendo
' se NON vuoi NON includere la riga sotto nello script
FSO.DeleteFolder  "C:\Backup",  True
--
Fosco

Grazie della tua  circostanziata risposta.
Proverò, anche se dubito delle mie modeste capacità. 
I files batch mi sembravano un tantino più semplici.......
Ciao da Anna

 I files batch mi sembravano un tantino più semplici.......
alllora prova a domandare/vedere qui :
news:it.comp.os.dos
http://www3.sympatico.ca/rhwatson/dos7/
http://aumha.org/a/batches.htm
http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/batch.mspx
PS:
Quando rispondi lascia ALMENO il nome qui stai rispondendo,
vedi come faccio io qui,cosi e' piu facile seguire i post.
--
Fosco