Newsgroup: it.comp.os.win.xp
Titolo: file elenco da cartella

più di una volta ho aperto cartelle in cui vi è un elenco di files.
E' possibile generare un file, di tipo .rtf o .txt ? anziché ricopiare 
i nomi uno per uno.
Grazie.
-- 
tramite server 
news.tiscali.it

Grazie.
Apri una prompt dei comandi (Start->Esegui poi scrivi cmd e dai
Invio).
Al prompt scrivi:
dir *.* -> qualcosa.txt
e dai Invio.
Ti si crea il file qualcosa.txt che contiene l'output del comando dir,
ossia l'elenco dei file e delle sottocartelle contenute nella cartella
da dove sei partito.
Giovanni Cesaretti
-- 
"We have a better-than-zero chance of
successfully intercepting, I believe,
an inbound warhead"
Lt. Gen. Henry Obering III, Director
of the US Missile Defense Agency 

grazie.
-- 
tramite server 
news.tiscali.it

 i nomi uno per uno.
'Al posto di DOC mettici la folder che vuoi
sStartPath = "c:\doc"
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")
'''Set ofso = CreateObject("Scripting.FileSystemObject")
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
--
Fosco

ok
Grazie
-- 
tramite server 
news.tiscali.it

 Grazie
prego
'questo sotto e' ancora piu pratico se e' una operazione che devi
'fare spesso .. puoi o trascinarci sopra la cartella che desideri
'oppure (meglio)  mettere lo script nella cartella SendTo (invia a ..)
'e poi in qualsiasi cartella basta che fai click destro ed invia a ...
Set oArgs = WScript.Arguments
sStartPath = oArgs(0)
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"
' ecco un'altro script VBS sul metodo DIR che ti hanno gia consigliato
'basta lanciare lo script stesso all'interno della cartella desiderata
set oShell = CreateObject("WScript.Shell")
Return = oShell.Run("%comspec% /c dir>c:\report.txt", 1, True)
'Msgbox return
 oShell.Run"c:\report.txt"
--
Fosco