Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Inhalt von Ordnern ermitteln





Frage

Hallo zusammen! Ich möchte per SendObject eine Email versenden. In einem Ordner (z.B. D:\Transfer) befinden sich Dateien (z.B. Hase.doc, Pferd.pdf und Igel.xls). Nun soll Access die Dateinamen ermitteln und Variablen zuordnen damit ich diese Dateinamen in den Emailtext einbinden kann (z.B. "Sie erhalten in der Anlage die Datei Hase.doc, Pferd.pdf und Igel.xls"). Zum zweiten wäre es schön, wenn Access diese Dateien dann noch automatisch der Mail als Anlage beifügt. Hat da einer eine Idee? Vielen Dank im vorraus Willi

Antwort 1 von Marie

Private Sub testFilename()
Dim strFilename As String
strFilename = Dir("D:\Transfer")
Do
Debug.Print strFilename
strFilename = Dir
Loop Until Len(strFilename) = 0
End Sub