maurogsc.eu
mauro gamberini


home ==> vbscript ==> File - Contare i files in una Directory

File - Contare i files in una Directory

Situazione.
Vogliamo contare i files presenti in una specifica Directory.

Nota.
Il codici degli esempi sono scaricabili ai link indicati per ciascun esempio. I files scaricabili sono in formato .zip e al loro interno trovate i files .vbs. Utilizzare gli esempi forniti o files di test per le vostre prove. Alcune indicazioni su come creare un file .vbs le trovate qui.

1 - Contare tutti i files presenti una Directory (nell'esempio la Directory C:\Test\). Il file è scaricabile da questo link.

    Dim objFSO
    Dim objFolder
    Dim sPath

    sPath = "C:\Test\"
      
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(sPath)
     
    MsgBox objFolder.Files.Count

    Set objFolder = Nothing
    Set objFSO = Nothing

2 - Contare tutti i files .txt presenti in una Directory (nell'esempio la Directory C:\Test\). Il file è scaricabile da questo link.

     Dim objFSO
     Dim objFolder
     Dim objFile
     Dim sPath
     Dim lCont
      
     sPath = "C:\Test\"
      
     Set objFSO = CreateObject("Scripting.FileSystemObject")
     Set objFolder = objFSO.GetFolder(sPath)

     For Each objFile In objFolder.Files
         Select Case Right(objFile.Name, 4)
             Case ".txt"
                lCont = lCont + 1
                 Set objFile = Nothing
         End Select
     Next
     
     MsgBox lCont

    Set objFolder = Nothing
    Set objFSO = Nothing

3 - Contare tutti i files di Excel con varie estensioni presenti in una Directory (nell'esempio la Directory C:\Test\). Il file è scaricabile da questo link.

    Dim objFSO
    Dim objFolder
    Dim objFile
    Dim sPath
    Dim lCont
      
    sPath = "C:\Test\"
      
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(sPath)

    For Each objFile In objFolder.Files
         Select Case Right(objFile.Name, 4)
             Case ".xls", "xlsx", "xlsm"
                lCont = lCont + 1
                Set objFile = Nothing
         End Select
    Next
     
    MsgBox lCont
    
    Set objFolder = Nothing
    Set objFSO = Nothing

Per ulteriori informazioni sui Vbscript utilizzate questo forum:
http://social.msdn.microsoft.com/Forums/it-IT/vbseiit/threads


Ultimo aggiornamento di questa pagina: 11/06/2013 - mauro gamberini