collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 93
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 14160
  • stats Beiträge insgesamt: 68645
  • stats Themen insgesamt: 9248
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Anzal von Dateien anzeigen  (Gelesen 2249 mal)

Offline thorstens1304

  • Access-Profi
  • **
  • Beiträge: 178
Anzal von Dateien anzeigen
« am: Dezember 16, 2010, 22:37:38 »
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?
 

database

  • Gast
Re: Anzal von Dateien anzeigen
« Antwort #1 am: Dezember 17, 2010, 09:10:08 »
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