Newsgroup: it.comp.aiuto
Titolo: Trasformare in un file di testo la lista di file di una cartella

Scusatemi: sarà forse elementare, ma io non son riuscito a farlo (ho Windows
ME). Mi servirebbe per controllare una lista migliaia di foto senza
sovraccaricare il PDA col peso dei relativi files.
Grazie
Tarcisio

 ha scritto nel messaggio 
news:446194ec$0$29115$5fc...@news.tiscali.it...

se non ricordo male esisteva un programmino che creava una lista dei file 
presenti nelle cartelle.. mi pare fosse listmaker
Ale(RN) 

 sovraccaricare il PDA col peso dei relativi files.
dir c:\directory_che_ti_interessa\*.* > c:\pippo.txt
Ciao
Lorenzo

 sovraccaricare il PDA col peso dei relativi files.
Questo e' full .. se non ti interessa tutto posta che te la faccio solo
per file senza aggiunte :
PS:
se metti  '''''''''  davanti a  Set oFolder = oFS.GetFolder("C:\windows\")
e le togli alle 2 qui sotto potrai trasinare sopra allo script qualsiasi Folder
o mettere lo script stesso nella crtella SendTo  e click destro su qualsiasi
cartella ed >>>>>  invia a .....
'inizio
on error resume next
set shell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
'''''''''Set oArgs = WScript.Arguments
''''''''Set oFolder = oFS.GetFolder(oArgs(0))
Set oFolder = oFS.GetFolder("C:\windows\")
'msgbox oFolder.files.count
Set newf = oFS.createtextfile("File.log")
newf.WriteLine "Numero di Files  " & oFolder.files.count
newf.WriteLine ""
newf.WriteLine "/////////////////////////////////////////////"
For Each oFile In oFolder.Files
newf.WriteLine ""
newf.WriteLine "/////////////////////////////////////////////"
newf.WriteLine "Name: " & oFile.Name
newf.WriteLine "Date created: " & oFile.DateCreated
newf.WriteLine "Date last accessed: " & oFile.DateLastAccessed
newf.WriteLine "Date last modified: " & oFile.DateLastModified
newf.WriteLine "Drive: " & oFile.Drive
newf.WriteLine "Parent folder: " & oFile.ParentFolder
newf.WriteLine "Path: " & oFile.Path
newf.WriteLine "Short name: " & oFile.ShortName
newf.WriteLine "Size: " & oFile.Size
newf.WriteLine "Type: " & oFile.Type
newf.WriteLine "Attributi: " & oFile.attributes
newf.WriteLine ""
newf.WriteLine "/////////////////////////////////////////////"
Next
newf.Close
Shell.run"File.log"
'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

 per file senza aggiunte :
Ciao!
Scusate se mi rifaccio vivo solo con ritardo, se non altro per ringraziare
dell'aiuto (sono stato via una settimana).
In effetti, ho provato col suggerimento di Lorguatto, ma mi č venuta fuori
un sacco di roba che rende il prodotto finale inutilizzabile ai miei scopi
(su un palmare): oltre al nome dei files, c'č il nome accorciato ad 8
caratteri, il formato, le dimensioni, la data, l'ora/minuto.
D'altra parte, il tuo PS č per me quasi lingua araba.
E se l'esportazione potesse avvenire in un formato tabellare, in modo da
poter eliminare poi le colonne inutili? Ho provato a portare il file
estratto .txt in un file formattabile in colonne ( .doc o .xls) ma senza
successo.
Grazie comunque.
Tarcisio

 caratteri, il formato, le dimensioni, la data, l'ora/minuto.
Se vuoi solo il nome puro e semplice:
dir /B c:\directory_che_ti_interessa\*.* > c:\pippo.txt
ma poi come fai a distinguere i file dalle directory??
In generale DIR /? per conoscere tutte le potenzialità
di questo comando DOS.
Ciao
Lorenzo

 D'altra parte, il tuo PS è per me quasi lingua araba.
'2 possibilita'
'1) prendi la cartella contenente le immagini e la trascini
'direttamente sullo script qui sotto
'2 ) metti lo script nella cartella SendTo  e poi su qualsiasi
'cartella puoi fare click destro invia a ...
on error resume next
set shell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oArgs = WScript.Arguments
Set oFolder = oFS.GetFolder(oArgs(0))
Set newf = oFS.createtextfile("File.log")
newf.WriteLine "Numero di Files  " & oFolder.files.count
newf.WriteLine  "in  "&oArgs(0)
newf.WriteLine ""
newf.WriteLine "/////////////////////////////////////////////"
For Each oFile In oFolder.Files
b =oFile.Size/1024
     Z = formatnumber(b,,,,0) & " kb "
newf.WriteLine ""
newf.WriteLine  oFile.Name
'newf.WriteLine  oFile.Size
newf.WriteLine Z
newf.WriteLine oFile.Type


 "Tarcisio"
'cazzeggio su una cartella con MP3 (*.mp3)
on error resume next
set shell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oArgs = WScript.Arguments
Set oFolder = oFS.GetFolder(oArgs(0))
Set newf = oFS.createtextfile("c:\File.m3u")
For Each oFile In oFolder.Files
newf.WriteLine oArgs(0) &"\" & oFile.Name
Next
newf.Close
Shell.run"C:\PROGRA~1\VLC-08~1.4A\VLC.EXE c:\File.m3u"
'Shell.run"C:\WINDOWS\MPLAYER.EXE c:\File.m3u"
' stessa cosa con Winamp ... ecc
WScript.Sleep 1500
Shell.run"Notepad c:\File.m3u"
--
Fosco