Newsgroup: it.comp.aiuto
Titolo: Ma esisterà un programma che...

Non so se questa è pura fantascienza (vi volevamo stupire con effetti
speciali ma...).
Il fatto e che sto cercando un programma che mi permette di creare dei file
di testo di un contenuto di una cartella.
X esempio: in una cartella ho vari files avi, mpeg, mp3, word; con questo
programma, mi analizza la cartella e mi crea un file di testo con il
contenuto scritto dei nomi dei files.
Sapete consigliarmi a riguardo o devo attendere che un giorno qualcuno crei
una cosa simile ?
Ciao
Francesco bat
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Francesco bat wrote:

Emmm... dir  > lista.txt ?
-- 
<<>><<>><<>><<>><<>><<>><<<>><<>><<>><<
Luca Paredi
Computing technical supporter              
Universita' degli Studi dell'Insubria  
<<>><<>><<>><<>><<>><<>><<<>><<>><<>><<

 Luca Paredi
Incredibile !
Dal prompt di Dos !!!
L'ho provato e ha funzionato salvandomi il documento nella cartella windows.
Che storia !
Grazie !


Francesco bat wrote:

mi stai sfottendo ?


 >> > Non so se questa č pura fantascienza (vi volevamo stupire con effetti

E perchč ?
No davvero, non lo sapevo proprio !
E' da molto tempo che stavo cercando di capire come si faceva a fare 'sta
cosa con il windows e alla fine pensavo che non lo avrei mai potuto fare se
non mi trovavo qualche programma specifico.
Mai a pensare che lo si poteva fare da dos.
Ho provato a creare anche documenti doc, rtf e xls al posto di txt e mi sono
venuti bene.
L'unica cosa lo trovo un pň disordinato e se volessi mettere tutto in ordine
alfabetico lo trovo un pň complicato.
Poi esiste magari anche un sistema piů rapido x fare questa operazione da
win98 senza usare ms dos ?
Grazie



Puoi dare un occhio a questo prg
http://www.freedownloads.be/downloaddetail/243
Ciao.
-- 
Varda
Without [NONSPAMMAREMICROCEFALO] to answer
[Non sono d'accordo con quello che dici,
ma mi batterò perchè tu possa continuare a dirlo]

 da win98 senza usare ms dos ?
Prova anche ad utilizzare Print Folder o List Folders (entrambi freeware).
Rispettivamente sezione system e rareware della Mole Zone (url in firma).
Un saluto.
-- 
Henry The Mole.
_________________________________
The Mole Zone: 
www.themolezone.cjb.net
remove EHILABEPPE to e-mail me

                    Il 16 Lug 2004, 18:12, "Henry The Mole" <henryt...@EHILABEPPElibero.it>
ha scritto:

Ciao !
Ho scaricato print folder e mi sono trovato piuttosto bene; molto carino.
Da dos le operazioni me le ha fatte piuttosto confuse, invece il programma
ti mantiene un certo ordine.
Peccato che la versione free non ti fa fare le sottodirectory in un solo
processo.
Ciao
Francesco bat
P.S. Comunque nel tuo sito ho trovato una piccola imperfezione nel frame
sinistro, cioè il link system è difficilmente cliccabile xchè è accavallato
da link superiore e un link che non risulta nel frame.


"Francesco bat"
sStartPath = "c:\windows"
set oShell = CreateObject("WScript.Shell")
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
oShell.run"log.txt"
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio log.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco


Ottimo !
Sono riuscito ad ottenere la lista tutte le cartelle e le sottocartelle.
Cambiando la riga "sStartPath = "c:\windows" " con "sStartPath =
"c:\documenti"" ho cambiato il sentiero di riferimento.
Ma se voglio avere la lista di tutti i files della cartella e delle
sottocartelle, si può modificare ancora ?


 sottocartelle, si può modificare ancora ?
'Si ......... ma diventa "bello pesante"
' fatto "al volo" e "a naso" ed a 35 gradi all'ombra
' in soldoni "NON testato",nessun problema pero', potrebbero
' esserci solo delle "ridondanze" (doppioni) nel codice
' mo' non cio' voglia di stare a spulciare ma dovrebbe funzionare
sStartPath = "c:\documenti"
set oShell = CreateObject("WScript.Shell")
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
 Set FileCollection = oFldr.Files
  For Each File In FileCollection
b =File.Size/1024
     Z = formatnumber(b,,,,0) & " kb "
'''fReport.Writeline (File) & "   " & File.Size/1024 & " Kb"
fReport.Writeline (File) & "   "  & Z
 Next
fReport.Writeline
  Next
End Sub
oShell.run"log.txt"
'''''' a seconda delle dimensioni devi aspettare un bel po'
--
Fosco


A funzionare, funziona !
Ho provato ed è tutt'ok, l'unica cosa e che mi fa tutte le sottodirectory ma
i files della directory principale non li vede proprio.
Come potrei modificare questa opzione ?
