contare file in una directory

Question

Ciao!

Esiste una funzione in vb6 (da utilizzare in una macro excel) che conta quanti file "*.txt" (per esempio) sono presenti in una determinata directory?

Domanda semplice, risposta certa ;-)

Grazie

Answer 1

Ciao!

Esiste una funzione in vb6 (da utilizzare in una macro excel) che conta quanti file "*.txt" (per esempio) sono presenti in una determinata directory?

Domanda semplice, risposta certa ;-)

Grazie

Due modi:

Public Sub m_1()

    Dim objFSO As Object

    Dim objFolder As Object

    Dim objFile As Object

    Dim sPath As String

    Dim lCont As Long

    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

 End Sub

Public Sub m_2()

    Const MYFOLDER As String = "C:\Test"

    Dim sFileName As String

    Dim lCont As Long

    sFileName = Dir(MYFOLDER & "*.txt")

    lCont = 0

    Do While (Len(sFileName) > 0)

        On Error Resume Next

        lCont = lCont + 1

        sFileName = Dir

     Loop

     MsgBox lCont

End Sub

Cambia la path e le estensioni dei file con i tuoi.

La prima soluzione mi consente di creare un file vbs senza dover per forza utilizzare Excel. Questo il codice:

    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

e qui come creare un file .vbs:

http://www.maurogsc.eu/vbscript/vbscrearevbs.aspx

Questa macro, che possiamo trasformare in .vbs, conta invece *tutti* i files di una Directory:

Public Sub m_3()

    Dim objFSO As Object

    Dim objFolder As Object

    Dim sPath As String

    sPath = "C:\Test"

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder(sPath)

    MsgBox objFolder.Files.Count

    Set objFolder = Nothing

    Set objFSO = Nothing

End Sub

Answer 2

Buongiorno!

Ho usato la Public Sub m_2()

Grazie a tutti!!

Lucia

Bene!

Ciao e alla prossima.

Answer 3

Buongiorno!

Ho usato la Public Sub m_2()

Grazie a tutti!!

Lucia

Answer 4

Ciao!

Esiste una funzione in vb6 (da utilizzare in una macro excel) che conta quanti file "*.txt" (per esempio) sono presenti in una determinata directory?

Domanda semplice, risposta certa ;-)

Grazie

Ciao Lucia,

no, più semplice di così. :)

Andrea.

---

Public Function contaFile(ByVal sFolder As String, ByVal sFile As String) As Long

Dim sFileName As String

Dim lCount As Long

If (Right(sFolder, 1) <> "") Then sFolder = sFolder & ""

sFileName = Dir(sFolder & sFile, vbNormal Or vbHidden Or vbSystem Or vbReadOnly)

Do While (Len(sFileName) <> 0)

lCount = lCount + 1

sFileName = Dir()

Loop

contaFile = lCount

End Function

---