Attachments öffnen

[oson00]

Hallo,

ich möchte gern ein Attachment öffnen. Da mehrere Attachments an einem Dokument hängen können, kann ich da nicht über die Standard-Notes-Funktion gehen, sondern schreibe einen Script-Code. Mit dem folgenden Code funktioniert das soweit auch gut:

rc = Shell( "cmd.exe /c " + filename, 6)

Wenn der Dateiname des Attachments allerdings Leerzeichen enthält, funktioniert das ganze nicht mehr. In der Hilfe zum CMD steht, dass dann der Dateiname in " stehen muss. Wie kann ich in dieser Zeile die Anführungszeichen hinzufügen.

Ich habe folgendes probiert:

rc = Shell( |cmd.exe /c "| + filename + |"|, 6)

und

rc = Shell( "cmd.exe /c " + chr(34) + filename + chr(34), 6)

Es ist ja schon spät. Übersehe ich was, oder muss ich das ganze irgendwie anders lösen?

[robertpp]

Ich denke dass ist das was du suchst:

Sub Initialize
   Dim test As String
   Dim filename As String
   filename = "S:\Sonstige Daten\_ Terminalserver EBG.lnk"
   test=  "cmd.exe /c " & |"|  &  filename  & |"|
   rc = Shell( test, 6)
End Sub

gruss robert

[eknori]

Gucke mal hier http://www.eknori.de/archives/99. Da habe ich auch das Problem mit Leerzeichen und langen Dateinamen beschrieben und gelöst

[oson00]

Hallo,

ja mit dem getShortFilenames funktioniert's. Ich hoffe nur, dass das auch in zukünftigen Windows-Versionen...