mehrere Dateien als Anhang verschicken

Moin moin.
Ich möchte ein Programm haben, welches alle *.dss auf der Speicherkarte an eine bestimmte Adresse verschickt, wenn sie eingelegt wird.

Zur Zeit schaff ich es aber nur, dass eine bestimmte Datei verschickt wird.
also beispielsweise 1.dss

Hab ihr ne Idee, wie ich das lösen kann?
Der code für eine Datei lautet so:

Shell("\windows\tmail.exe -service "
& Chr(34) & "Mda" & Chr(34) &
" -to " & Chr(34) & "bill@microsoft.de" & Chr(34) &
" -subject " & Chr(34) & "SUBJEKT" & Chr(34) &
" -body " & Chr(34) & "Text" & Chr(34) &
" -attach " & Chr(34) & "\Speicherkarte\1.dss" & Chr(34))


der Funktioniert auch einwandfrei.
dass er ausgeführt wird, wenn die Speicherkarte eingelegt wird ist einfach zu realsieren.
diesen code zu einer autorun.exe compilieren und in den ordner 2577 auf der speicherkarte ablegen.
aber nun nochmal zu meiner frage.
er soll bitte alle dateien mit der endung dss verschicken oder wenns nicht geht, alle dateien einzeln mit einer email.das wäre ja auch ok.

Danke für Eure antwort.
Ich bin ganz neu in VB also bitte versuchen es zu erklären wie einem 3 jährigen *G*
Danke nochmal FSG

nun, das geht sicherlich mit VB. Erstelle doch einfach eine Liste aller .dss-Dateien
du machst einfach einen String, wo du den Befehl zusammensetzt. So etwa:

Code:

Dim strAttachBefehl as String

' und nun einfach alle Dateien auflisten
Dim filesys 
Dim i as Integer

set filesys = CreateObject ("Scripting.FileSystemObject")
set hFolder= filesys.GetFolder("\Speicherkarte")

i = 0

for each File in hFolder.Files
  strAttachBefehl &= "-attach " & Chr(34) & hFolder & "\" % File.name & Chr(34))   
next

' und nun alles zusammensetzen
Shell("\windows\tmail.exe -service " 
& Chr(34) & "Mda" & Chr(34) &
" -to " & Chr(34) & "bill@microsoft.de" & Chr(34) &
" -subject " & Chr(34) & "SUBJEKT" & Chr(34) &
" -body " & Chr(34) & "Text" & Chr(34) &
strAttachBefehl)