Newsgroup: it.comp.os.win.xp
Titolo: Elenco delle cartelle in un file

Perdonatemi l'oggetto, ma non sono capace di sintetizzare.
Devo spedire per e-mail un elenco di alcune cartelle con relative 
sottocartelle ed il loro contenuto.
L'unico prog. che conosco che riesce a fare qualcosa di simile è Nero ma il 
suo copia/incolla relativo alla fattispecie serve solo per mandare i dati 
alla stampante.
Esiste la possibilità di trasformare questo elenco in un file, casomai di 
testo da allegare alla mail?
Ciao e grazie,
Nicola

Usa File Lister, e' inglese ma è semplice da usare.
In piu' è freeware:
http://student.stunet.se/thd/dl.php?file=filelister211.exe&PHPSESSID=d290f7966418d2b718726ded6db18c81

 sottocartelle ed il loro contenuto.
se non ho capito male ti basta aprire una console (prompt dei comandi), e
dare il seguente comando:
dir PercorsoCompleto /b/s >lista.txt
per esempio con dir c:\windows /b/s >lista.txt 
troverai dentro il file lista.txt, nella cartella windows, tutti i file e
sottocartelle di windows (inclusa). Non vi troverai i file nasciosti o di
sistema.
bye, giubbe

 ha scritto nel messaggio 
news:1138217579....@g47g2000cwa.googlegroups.com...
Usa File Lister, e' inglese ma č semplice da usare.
In piu' č freeware:
http://student.stunet.se/thd/dl.php?file=filelister211.exe&PHPSESSID=d290f7966418d2b718726ded6db18c81
Sei stato gentilissimo. E' quello che cercavo, grazie :-)!
Nicola

 bye, giubbe
Grazie giubbe, ma ho perso un po' la mano con il DOS (purtroppo), ho 
rimediato con filelister.
Ciao,
Nicola

 Sei stato gentilissimo. E' quello che cercavo, grazie :-)!
Fai prima con "dir".
ciao, f.

 Grazie giubbe, ma ho perso un po' la mano con il DOS
'Al posto di WINDOWS mettici la folder che vuoi
sStartPath = "c:\Windows"
Set oFSO = CreateObject("Scripting.FileSystemObject")
sReportName = "log.txt"
'Set oFSo = CreateObject("Scripting.FileSystemObject")
Set fReport = oFSo.CreateTextFile(sReportName, True)
ListFolders(sStartPath)
Sub ListFolders(sPath)
  Set oFolder = oFSO.GetFolder(sPath)
  fReport.Writeline oFolder
  fReport.Writeline "Base name: " & oFolder.Name
  fReport.Writeline "File count: " & oFolder.Files.Count
 t =oFolder.Size/1024000
     S = formatnumber(t,,,,0) & " MB "
 fReport.Writeline "Folder size: " & S
  fReport.Writeline
  For Each oFldr In oFolder.SubFolders
    ListFolders oFldr.Path
  Next
End Sub
set oShell = CreateObject("WScript.Shell")
while not oFSO.FileExists("log.txt")
WScript.Sleep 100
Wend
oShell.run"log.txt"
'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
Per inviarlo automaticamente in mail :
http://www.ostrosoft.com/smtp_component.asp
--
Fosco

 "Peter & Pan ©" <

Grazie Fosco, mi piacerebbe utilizzare questo script,  ma qui siamo 
all'università ed io sono ancora alle "elementari", e utlizzare *.dll mi fa 
un po' paura ;-).
Cmq, me lo salvo questo post.
Ciao,
Nicola


Si ok .. ma e' tutto in chiaro quello che fa'
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)
Download and install WSH 5.6 from here:
http://msdn.microsoft.com/downloads/list/webdev.asp
--
Fosco

 Si ok .. ma e' tutto in chiaro quello che fa'
e' piu pericoloso adoperare un exe che scarichi dal web
qui ho postato tutto in plain text e tutti possono vedere
cosa si sta' facendo
Se dopo e' per questioni tecniche basta copiare su notepad
e salvare con estenaione *.vbs e cliccarci sopra
--
Fosco

 bye, giubbe
magnifico, adoro il dos anche se come autodidatta arrivo solo fino ad un 
certo punto.
mi sono ben segnato questo comando perché mi serve spesso.
ciao, criss :)