Anzal von Dateien anzeigen

[thorstens1304]

Hallo,

ich möchte in meinem Formular im Textfeld "AnzahlEMails" die Anzahl der Dateien anzeigen, welche mit einem bestimmten String (Auftragsnummer) beginnen. Um alle dementsprechenden Dateien  in einer Liste anzuzeigen nutze ich den folgenden Code

Code [Auswählen] Erweitern

Private Sub Form_Current()
Const Path = "P:\ProduktManagement\TSI\Angebote\Mails\VB Anfragen\"
Me.EMails.RowSourceType = "Value List"
Dim AktName As String
AktName = Dir(Path & [AngebotsNr] & "*.*")
Dim AllNamen As String
AllNamen = ""
Do While AktName <> ""
     AllNamen = AllNamen & AktName & ";"
       Debug.Print AllNamen
         AktName = Dir
Loop
Me.EMails.RowSource = Mid(AllNamen, 1) & ";"
End Sub


Wie kann ich statt dessen mir einfach nur die Anzahl anzeigen lassen?

[database]

Hallo,

habe einst diesen Code im Netz dazu gefunden - versuch mal...

Code [Auswählen] Erweitern


Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim Verzeichnis As Folder
Set Verzeichnis = fso.GetFolder("P:\ProduktManagement\TSI\Angebote\Mails\VB Anfragen")
'Anzahl der Dateien im Odrner
MsgBox Verzeichnis.Files.Count


solltest du eine Fehlermeldung erhalten die in der Form "Benuterdefinierter Typ ...." lautet, schau mal in den Verweisen nach dem 'Windows Script Host Object Model'

HTH
Peter