Newsgroup: it.comp.os.win.xp
Titolo: script in dos

Salve,
vorrei fare uno script stupido che mi  crei in ogni directory il  suo 
contenuto .
foto -->   spagna --> 2007
                          --> 2008
avrò 2 file   che si chiamano   "foto spagna 2007.txt"  e "foto spagna 
2008.txt"
nella quale è listato quello che c'è dentro le directory
qualcuno mi sà aiutare ?
Everett 

 2008.txt"
prova a paciugare con questi due esempi generici :
'1
strOFile ="C:\test.txt" ' metti per ogni riga nel txt
'  togli lo ' iniziale
'foto_spagna_2007
'foto_spagna_2008
'ecc
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("C:\Test") then
  fso.CreateFolder("C:\Test")
 End If
Set objInputFile = fso.OpenTextFile(strOFile, 1)
inputData = Split(objInputFile.ReadAll, vbNewline)
For each strData In inputData
    WScript.Echo strData
  fso.CreateFolder("c:\test\"& strData)
Next
objInputFile.Close
'2
Set fso = CreateObject("Scripting.fileSystemObject")
If fso.FileExists("lista nomi.txt") Then
Const OPEN_FILE_FOR_READING = 1
strOFile ="lista nomi.txt"
Set fso = CreateObject("Scripting.fileSystemObject")
Set objInputFile = fso.OpenTextFile(strOFile, 1)
inputData = Split(objInputFile.ReadAll, vbNewline)
For each strData In inputData
    WScript.Echo strData
 fso.CreateFolder( strData)
Next
else
msgbox "Crea prima il file lista nomi.txt"
end if
'  esempio con data
Set fso = CreateObject("Scripting.FileSystemObject")
sYr = Right(CStr(Year(Date)), 4)
sMo = Right("0" & CStr(Month(Date)), 2)
sDa = Right("0" & CStr(Day(Date)), 2)
sFolder = "C:\windows\temp" & "\" & sYr & "-" &"-" & sMo&"-"  & sDa
sFolder1 = "C:\windows\temp" & "\" & sMo& "-" &"-" & sYr &"-"  & sDa
sFolder2 = "C:\windows\temp" & "\" &sDa & "-" &"-" & sMo&"-"  &  sYr
     fso.CreateFolder( sFolder)
fso.CreateFolder( sFolder1)
fso.CreateFolder( sFolder2)
'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

 prova a paciugare con questi due esempi generici :
sono tre ... vabbuo' uno in omaggio
--
Fosco

 prova a paciugare con questi due esempi generici :
emh...grazie ma non ci capisco nulla di vbs
io ho scritto questo ma non riesco a passargli la variabile quando faccio il 
"cd" , dov'è l'errore ?
@Echo on
dir /s /ad /b >> lista_dir.log
for /F %%i in (lista_dir.log) do call :lista
:lista
set cart=%%i
cd %cart%
dir *.jpg /b >> %cart%.log
cd ..
Everett 

"Everett" <endepot-1...@LEVAMIyahoo.it> ha scritto nel messaggio 
news:g57djd$6dj$1...@tdi.cu.mi.it...

al solito mi son aiutato da solo..... lo posto per beneficio di tutti
@Echo off
dir /s /ad /b >> lista_dir.log
for /F "eol= tokens=1,2* delims=;" %%i in (lista_dir.log)  do call :lista 
%%i
:lista
set cart=%*
set nome=%cart:~+3%
set nome=%nome:\=-%
cd %cart%
dir *.jpg /b >> "%nome%".log
cd ..
manca il controllo sulla creazione del file nel caso il dir *.jpg non 
restituisca nulla ma è un dettaglio
Everett 


dai un'occhiata qua, + o meno era il tuo stesso problema. 

 
http://www.karenware.com/powertools/ptdirprn.asp
azz vuole fare una lista ???
allora cannai
'Al posto di DOC mettici la folder che vuoi
sStartPath = "c:\doc"
Set oFSO = CreateObject("Scripting.FileSystemObject")
sReportName = "log.txt"
sReportName2 = "Empty.txt"
Set fReport = oFSo.CreateTextFile(sReportName, True)
Set fReport2 = oFSo.CreateTextFile(sReportName2, True)
fReport2.Writeline "Cartelle con ZERO files"& VBCrLf
ListFolders(sStartPath)
Sub ListFolders(sPath)
  Set oFolder = oFSO.GetFolder(sPath)
  liLength = len(oFolder.Path)
  fReport.Writeline oFolder
  fReport.Writeline "Base name: " & oFolder.Name
  fReport.Writeline "File count: " & oFolder.Files.Count
  fReport.WriteLine "Conta_Caratteri" &"  "& liLength
 t =oFolder.Size/1024000
     S = formatnumber(t,,,,0) & " MB "
 fReport.Writeline "Folder size: " & S
  fReport.Writeline
  If oFolder.Size = 0 Then
       '   FSO.DeleteFolder(Subfolder.Path)
'msgbox "Cartelle con ZERO files" & VBCrLf  &   oFolder
'fReport2.Writeline "Cartelle con ZERO files"& VBCrLf&oFolder
   fReport2.Writeline oFolder
    end if
  liMaxLength = 250
if liLength > liMaxLength then
 wscript.echo oFolder.Path &"  "& liLength
 end if
  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"
while not oFSO.FileExists("empty.txt")
WScript.Sleep 10000
Wend
oShell.run"empty.txt"
'set fso = CreateObject ("Scripting.FileSystemObject")
'set initialFolder = fso.GetFolder ("C:\windows\temp")
'for each subFldr in initialFolder.SubFolders
 'Wscript.Echo subFldr.Path
 'Wscript.Echo subFldr.DateCreated
 'Wscript.Echo subFldr.DateLastModified
 'Wscript.Echo subFldr.DateLastAccessed
 'Wscript.Echo subFldr.Size
'next
