Dokumente in einem Ordner ausführen

[mgubler]

Hallo zusammen,

ich habe folgendes Problem:
wenn ein Mail mit Anhang reinkommt, soll ich aus diesem Mail den Anhang auf der Platte speichern, die Datei entpacken und alle im Zip befindlichen Dateien die entpackt wurden in der jeweiligen Applikation starten.

Wie ich die Dateien löse und entpacke weiß ich; aber leider habe ich keine Ahnung davon, wie ich sämtliche Dateien, die nun in dem Ornder liegen in der jeweiligen Applikation starten kann.

Ich hoff es kann mir jemand Helfen.
Wäre wichtig!!!

Danke im voraus für alle Antworten!

[ata]

... ich habe eine Lösung für Windows, jedoch nicht für andere Plattformen - würde dir die genügen?

ata

[ata]

Ich hab' den Code in einer Schaltfläche gehabt - eben entsprechend anpassen - funktioniert nur für Windows...

Code

Sub Click(Source As Button)
' # ata - Datei starten mit Original-Anwendung - falls installiert   
   Dim hwnd As Long
   Dim sOperation As String
   Dim sFile As String
   Dim sDirectory As String
   Dim nShowCmd As Long
   Dim Hwin32 As Long
   Dim pos As Integer
      
   ' # die Variablen initialisieren
   sFile = Strrightback( "C:\Temp\Zu_startende_Datei.txt" , "\" ) ' # Dateiname
   pos = Instr( "C:\Temp\Zu_startende_Datei.txt" , sFile )
   Print sFile
   sDirectory = Left( "C:\Temp\Zu_startende_Datei.txt" , pos)  ' # Verzeichnis
   nShowCmd = 1 ' # soll die Datei geöffnet werden
   sOperation = "Open"  ' # zum Ausdrucken hier "Print"
   ' # öffnen   
   Hwin32 = ShellExecute( hwnd , sOperation , sFile , "" , sDirectory , nShowCmd ) 
   If Hwin32 = 2 Then
      Print "... konnte nicht geöffnet werden - " + Cstr( Hwin32 )
   Else         
      Print, "...  geöffnet - " + Cstr( Hwin32 )  
   End If   
End Sub

ata

[mgubler]

Danke für diesen Lösungsansatz.

Wie komme ich denn an alle Dateinamen in einem Ordner dran.
Das soll ja dann für ALLE Dateien in einem bestimmten Ordner funktionieren.
Die Dateinamen sind unbekannt.

Hoffe Du kannst mir auch hier weiterhelfen.

Danke im voraus,
Marc

[ata]

... das war vor nicht allzu langer Zeit hier im Forum schon mal dran - geh mal auf die Suche nach "Verzeichnis" oder "Directory"...

ata