Access - VBA - Anzahl von Unterordnern in Access, DIR funktion liefert falsches Ergebnis

Hallo,
ich versuche aus einem Verzeichnis die Anzahl Unterordner sowie die Anzahl von Dateien auszulesen

Leider erkennt dieser sowohl die Anzahl der Unterordnern, sowie die Anzahl der Dateien in einem .

Beispielordner c:\temp
4 Unterordner und
3 Dateien

c:\temp\ = attach_path_vpdid

Ergebnis

Ordner = 7 -> hier sollte nur 4 stehen
Anzahl Dateien = 3 -> Soweit richtig

     Dim strvpdid, strbtnr As String
     Dim intz, intz2 As Integer
     
  'Anzahl Subfolder         
         strvpdid = Dir(attach_path_vpdid & "\", vbDirectory)  
         
         Do While strvpdid <> ""  
             strvpdid = Dir
             intz = intz + 1
         Debug.Print strvpdid
         Loop
         intz = intz - 2     ' -2 aufgrund der Gefundenen Ordner "." + ".."  
         Forms!Testform!anzahl_unterordner_vpdid = intz
         intz = ""  
         
' anzahl Dateien ausgeben  
         strvpdid = Dir(attach_path_vpdid & "\", vbNormal)  
         
         Do While strvpdid <> ""  
             strvpdid = Dir
             intz2 = intz2 + 1
             
         Loop
         Forms!Testform!anzahl_files_vpdid = intz2
         intz2 = ""  

Ist die Dir Funktion nicht dafür die richtige?

Grüße aus München

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 308580

Url: https://administrator.de/forum/access-vba-anzahl-von-unterordnern-in-access-dir-funktion-liefert-falsches-ergebnis-308580.html

Ausgedruckt am: 08.01.2025 um 22:01 Uhr

2 Kommentare

Neuester Kommentar

Hi.
Use the FileSystemObject:

Set fso = CreateObject("Scripting.FileSystemObject")  
set folder = fso.GetFolder("C:\FOLDERXYZ")  
folderCount = folder.SubFolders.Count
fileCount = folder.Files.Count

Regards