Newsgroup: it.comp.aiuto
Titolo: Copiare i nomi delle cartelle

Ciao a tutti
Avrei bisogno urgentemente di una mano.
Dovrei catalogare alcuni cd rom con molte cartelle e volevo stampare il
nome di queste cartelle per creare una copertina da mettere sulla
custodia del cd in modo da trovare velocemente cio che mi serve.
Copiarle a mano nn mi passa più così avevo pensato di cercare un
programma che mi legga
tutti i nomi delle cartelle e me li trasformasse in file di testo.
Purtroppo nn ho trovato niente....sapete aiutarmi?
Grazie

 Grazie
Ti puň essere utile 
http://www.romanelmondo.com/sugg/stampadir.htm
 ?
-- 
Andrea
- - - - - - - - - - - - - - - - - - - - - - - - -
www.yogajap.com
 * 
www.italiatibet.org
 

 ha scritto nel messaggio
news:LJ0Fg.22639$ZJ6....@tornado.fastwebnet.it...


Grazie x la risposta David,
ho provato il tuo metodo e sembra fuzionare l'unico problema è che
posso farlo solo con cartelle presenti sull'hard disk....nn c'è un
modo per leggere le cartelle di un cd da dos ma creare il file di testo
su hard disk?
Grazie ancora

su hard disk?
Questo dovrebbe andare __:
si l'ho appena (ri)testato  ovviamente cambia D:  se lo hai diverso
Set oFSO = CreateObject("Scripting.FileSystemObject")
 x= oFSO.GetDrive("D:")
Set f = ofso.CreateTextFile("log.log", True)
Set Folder = oFso.GetFolder (x)
 Set FileCollection = Folder.Files
 For Each File In FileCollection
f.WriteLine (File)
 Next
set oShell = CreateObject("WScript.Shell")
while not oFSO.FileExists("log.log")
WScript.Sleep 100
Wend
oShell.run"log.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

 si l'ho appena (ri)testato  ovviamente cambia D:  se lo hai diverso
se ti interessano SOLO le folders e NON i file :
path="d:\"
filename = "log.log"
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
For Each folder In fso.GetFolder(path).SubFolders
newf.WriteLine  
folder.name
  next
newf.Close
set oShell = CreateObject("WScript.Shell")
while not FSO.FileExists("log.log")
WScript.Sleep 100
Wend
oShell.run"log.log"
' stesso metodo
--
Fosco

 su hard disk?
Certo che c'è, che diamine ;-)
Basta semplicemente che dai il percorso completo per il file di testo che
intendi fare. Un esempio in cui il lettore cd è uguale al classico D:, e
"percorso_directory" penso non abbia bsogno di spiegazioni :-)
D:\percorso_directory>dir/s>c:\pippo.txt
-- 
Ciao, un Guglielmo che quanto era bello il dos..., quanto si stava meglio
quando si stava peggio, e non ci sono più le mezze stagoni... :-)

 D:\percorso_directory>dir/s>c:\pippo.txt
Giusto per precisare per altri che in futuro dovessero usarlo ed hanno
un errore:
dopo dir ci vuole uno spazio credo?:
dir /s
Ciao!

 dir /s
Su Windows XP ed in altre versioni di windows, č ininfluente. Funziona in
tutte e due le maniere.
Comunque hai ragione tu, č sintatticamente piů corretto mettere lo 
spazio :-)
-- 
Ciao, Guglielmo.

   ..........
Beh... complimenti e grazie! Questo programmino mi sa che sarebbe utile
a parecchi

"Ippiiò"

Si .. puoi fare tutto (questo ed altro) da solo anche tu semplicemente
col notepad e plain text (come col dos piu' o meno)
e' una evoluzione del dos/batch  che ti ha suggerito Guglielmo
se sei interessato ecco alcuni link (parecchio che non controllo) :
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
snip :   
http://snipurl.com/jtur
Scripts Ufficiale
http://msdn.microsoft.com/scripting/
http://www.w3schools.com/
Basics
http://www.microsoft.com/technet/scriptcenter/learnit.mspx
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx
InIzio wsh ( samples)
http://www.jsware.net/jsware/scripts.php3#msiprog
http://www.robvanderwoude.com/robnav.html
Windows VBScript Utilities » 
www.billsway.com/vbspage/
Windows Tweaks & Tips » 
www.billsway.com/notes_public/
T Lavedas' WSH Scripts
 
http://www.pressroom.com/~tglbatch/wshindex.html
http://www.foxitaly.com/risorsetecniche/ShellApplication.htm
http://www.activexperts.com/activmonitor/windowsmanagement/
http://www.computerperformance.co.uk/Logon/WSH_FSO.htm
AutoItX
http://www.hiddensoft.com/AutoIt/
AutoItX solo dll
http://www.hiddensoft.com/cgi-bin/countdown.pl?AutoIt/AutoItX.zip
negli esempi cambia "Untitled - Notepad" in "Senza nome - Blocco note"
e "Calculator" in "Calcolatrice"
--
Fosco

 quando si stava peggio, e non ci sono più le mezze stagoni... :-)
Mah .. piu o meno dovremmo essere della stessa generazione
ed io il dos NON sono mai riuscito a farmelo piacere .. mentre
mi sono appassionato subito al WSH (*.vbs) .. e dire che piu
o meno sono la stessa cosa .. probabilmente perche il dos
lo usavo solo in casi disperati ed era sempre un mezzo panico ...
--
Fosco

 Per quanto mi riguarda "scriptare" non č mai stato una mia passione
Ehh lo so .. o ti piace o no non c'e' verso .. ma e' un potente strumento
soprattutto le varie evoluzioni tipo :
http://www.hiddensoft.com/autoit3/
http://www.autoitscript.com/autoit3/files/beta/autoit/
riesci con un liguaggio di scripting a fare praticamente TUTTO [1]
quello che potresti fare con Visual Basic 6 (Api/dll/ ecc)  .. e non e' poco
[1]  autoit(*.au3)
; >> Declare >>  originali  .... Dllcall >> chiamata con Autoit
DllCall("Shell32.dll", "int", "ShellExecute", "hwnd", 0, "str", 'open', "str", _
"c:\windows\notepad.exe", "str", '', "str", @WorkingDir, "int", 10)
;Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
$r = DllCall('kernel32','long','GetTickCount')
MsgBox(4096,'Time','Windows started ' & $r[0] & ' ms ago.')
;Declare Function FindWindow Lib "user32" Alias "FindWindowA"
;(ByVal lpClassName As String,
;ByVal lpWindowName As String) As Long
Sleep(500)
$hwnd  = DllCall("user32.dll","long","FindWindow","str","Notepad","str", _
"Senza nome - Blocco note")
MsgBox(262144, "","Notepad hwnd  " & $hwnd[0])
$goal = DLLCall("user32.dll","long","SetForegroundWindow","hwnd",$hwnd[0])
For $i = 1 to 20
$f = DllCall("user32","int","FlashWindow","hwnd",$hwnd[0],"int",1)
Next
; ecc
--
Fosco