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
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?
Hallo,
habe einst diesen Code im Netz dazu gefunden - versuch mal...
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