Newsgroup: it.comp.lang.visual-basic
Titolo: Come modificare questo?

Scusate il disturbo, spero di aver beccato il Ng giusto, in quanto sono 
completamente ignorante in materia di linguaggi del PC.
Tempo fa mi fu dato questo (credo semplice) vbs attraverso il quale posso 
avere un elenco dei files presenti in una cartella(mettendoci semplicemente 
la sua posizione) da poter stampare o comunque salvare in file txt. E' 
perfetto per le mie necessita', mi servirebbe solo aggiungere accanto ai 
vari files la loro dimensione. Come lo dovrei modificare?
Grazie anticipate a chi puo' aiutarmi
fulvio
Cartella = InputBox("scrivi nella riga il percorso che ti interessa")
If Cartella = "" Then Cartella = "C:\"
set ie4=CreateObject("InternetExplorer.Application")
ie4.navigate ("about:blank"): ie4.visible=1
set FSys=CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSys.GetFolder(Cartella)
ie4.document.body.innerHTML="<p id='idOutput'>"
SubFolders TheFolder, FiltroFile
YesNo=MsgBox("Stampa?", vbYesNo)
If YesNo = vbYes Then ie4.ExecWB 6, 2
set ie4=nothing: set fSys=nothing
Sub SubFolders(ByVal AFolder,  TheExtension)
strOut="<b>" & AFolder & "</b><br>"
        ie4.document.all.idOutput.insertAdjacentHTML "BeforeEnd", strOut
        ShowFilesWithExtensionIn AFolder, TheExtension
        Set MoreFolders = AFolder.SubFolders
        For Each TempFolder In MoreFolders
          SubFolders TempFolder, TheExtension
        Next
End Sub
Sub ShowFilesWithExtensionIn(AFolder,TheExtension)
'Dim AFile, TheFiles,s, header
   header="<H1>" & folderspec & "</H1> <p>"
  Set TheFiles = AFolder.Files
  For Each AFile In TheFiles
      s=AFile.Name
      s = s & "<br>"
     ie4.document.all.idOutput.insertAdjacentHTML "BeforeEnd",  s
  Next
End Sub


Tempo fa ho trovato questo in rete, magari ti è utile
'***************************************************************************
*
' Search.vbs
'
'   Searches for files based on name or wildcard on a local disk or
'   will search a mapped drive if that drive letter is substituted.
' Saves the results to a .txt or .csv file using the Machine name and
file
'   extension of the search to identify the search result.
'***************************************************************************
*
'***************************************************************************
*
InfoMB = MsgBox ("This Script Searches For Files On A Hard Drive Or
Mapped
Drive By Drive Letter." + vbCRLF + vbCRLF + Space(2) + "Click OK To
Begin
Search, Cancel To Quit." , vbInformation + vbOKCancel +
vbDefaultButton2 ,
"Scripts")
If InfoMB = vbCancel Then
   WScript.Quit
   Else
End If
drInput = InputBox("Enter Drive Letter To Search", "Scripts", "C:")
If drInput = "" Then
  WScript.Echo "You Entered Nothing, Quitting!"
  WScript.Quit
End If
exInput = InputBox("Enter File Extension To Search For", "Scripts",
"PST")
If exInput = "" Then
   WScript.Echo "You Entered Nothing, Quitting!"
   WScript.Quit
End If
phInput = InputBox("Enter Drive Letter And Path To Save Output File
To",
"Scripts", "C:\Test")
If phInput = "" Then
   WScript.Echo "You Entered Nothing, Quitting!"
   WScript.Quit
End If
 'Set objFileSet=GetObject("winmgmts:").ExecQuery("select * from
CIM_DataFile where Drive ='" & drInput & "'" & "And Extension='" &
exInput &
"'",, 48)
 Set objFileSet=GetObject("winmgmts:").ExecQuery("select Name,
FileSize from
CIM_DataFile where Drive ='" & drInput & "'" & "And Extension='" &
exInput &
"'",, 48)
Set objWSHShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = objWSHShell.Environment("Process")
strMachineName = WshSysEnv("Computername")
Dim nTotalSpace, nTotalMegs
Dim nTotalFiles
nTotalSpace=0
nTotalFiles=0
strOutputFile = (""& phInput &"")& "\" & strMachineName& "-"& exInput
&".csv"
Set objFSO = CreateObject ("Scripting.FileSystemObject")
If objFSO.FileExists (strOutputFile) Then
     Set objFile = objFSO.GetFile (strOutputFile)
     objFile.Delete
End If
Set objFile = objFSO.CreateTextFile (strOutputFile, True)
objFile.WriteLine
For Each File In objFileSet
         objFile.WriteLine File.Name & " " + Space(4) & File.FileSize
         nTotalSpace= nTotalSpace + File.FileSize
         nTotalFiles = nTotalFiles + 1
Next
nTotalMegs=(nTotalSpace/1024)/1024
objFile.WriteLine
objFile.WriteLine
objFile.WriteLine "Total: " & nTotalMegs & " Megabytes In " &
nTotalFiles &
" Files."
Wscript.Echo "The File Search Is Complete..." + vbCRLF + Space(2) + "
Space
Used By Files Is " & nTotalMegs & " Megabytes."
'***************************************************************************
*
'***************************************************************************
*
=======================================================================
Se mi vuoi scrivere togli le maiuscole
Sveltolampo 
cteniza...@hotmail.com
=======================================================================

 aggiungere accanto ai vari files la loro dimensione.
Set fso = CreateObject("Scripting.FileSystemObject")
dimensionefile=fso.GetFile(PercorsoENomeFile).Size
--
Gulp
....forse mi sono perso qualcosa !

 dimensionefile=fso.GetFile(PercorsoENomeFile).Size
Ti ringrazio,ma in quale posizione dovrei mettere esattamente queste due 
righe? Ho fatto alcuni tentativi ma non mi funziona.
Lo dicevo che non ci capisco una mazza     ;-)
fulvio 

 ha scritto nel messaggio
news:jxRld.170160$b5.85...@news3.tin.it...

Se ho capito dove lo vuoi, dovrebbe essere sufficiente modificare la riga
s=AFile.Name
in
s=AFile.Name & " (" & AFile.Size & ")"
AFile.Size se non sbaglio restituisce la dimensione in byte, se la vuoi in
kilobyte o megabyte sostituisci rispettivamente con (AFile.Size \ 1024) o
(AFile.Size \ 1024^2), se non la vuoi arrotondata usa / al posto di \
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 riga......
Perfetto, di nuovo thx a tutti voi
fulvio