ja, werde am Sonntag irgendwann (17:00 Uhr / 18:00 Uhr) da sein - je nach Stau.
Gruß
Dirk
ja, werde am Sonntag irgendwann (17:00 Uhr / 18:00 Uhr) da sein - je nach Stau.
Gruß
Dirk
Nochma Danke für die liebe Hilfe. Sieht jetzt echt super aus.
Hier nochmal der gesamte Code:
1) Pfad raussuchen und im Feld speichern:
Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim se As NotesSession
Dim db As NotesDatabase
Dim profil As NotesDocument
Dim Ablagepfad As Variant
Dim Ablage_default As String
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set se = New NotesSession
Set db = se.CurrentDatabase
Set profil = db.GetProfileDocument("(DBProfil)")
Ablage_default = profil.Ablage_Start(0)
Ablagepfad = ws.SaveFileDialog( True , "Ablagepfad", , Ablage_default )
If Not Isempty(Ablagepfad) Then Call uidoc.FieldSetText("Ablagepfad", Ablagepfad(0))
Call uidoc.Refresh
End Sub
2) Pfad aufrufen und ausgewählte Dateien im richtigen Programm öffnen:
Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim ff As Integer
Dim i As Integer
Dim Ablagepfad As String
Dim temp_verz As String
Dim id
Dim datei
Dim datei_temp As String
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Ablagepfad = uidoc.FieldGetText("Ablagepfad")
datei = ws.OpenFileDialog( True , , , Ablagepfad )
If Isempty(datei) Then Exit Sub
temp_Verz = Environ("Temp")
ff = Freefile
datei_temp = Format(Now, "yymmddhhnnss") & ".cmd"
Open temp_Verz & "\" & datei_temp For Output As ff
For i = 0 To Ubound( datei)
Print #ff, "start """" """ & datei(i) & """"
Next
Print #ff, "del """ & temp_Verz & "\" & datei_temp & """"
Print #ff, "exit"
Close #ff
id = Shell (temp_Verz & "\" & datei_temp, 7)
End Sub
Hallo!
Nochmal danke an Diali für die prompte Hilfe beim EC.
Komischerweise hat der User jetzt das Problem, daß Dokumente nicht geöffnet werden können, wenn der Pfad etc. Umlaute enthält.
Kannt einer dieses Problem?
öffne mal die temp. CMD-Datei mit edit aus der Dos-Eingabeaufforderung (CMD.exe).
Wie sehen dort die Umlaute aus? passen wahrscheinlich nicht.
D.h. die Datei ist wahrscheinlich im Ansi geschrieben und die CMD interpretiert ASCII.
Schreibe mal hinter Open ... Charset = "ASCII"
Open temp_Verz & "\" & datei_temp For Output As ff Charset = "ASCII"
Ungeprüft!
Gruß
Dirk
PS: im notePad wird es wahrscheinlich richtig angezeigt.
Hat leider nicht geholfen. Lediglich das Sonderzeichen, das anstelle des "ä" steht, sieht jetzt anders aus
schau dir mal die Datei in einem Dateibetrachter an, der die den Zeichensatz-Typ (die CodePage) mit anzeigt.
Was steht dort?
Ich hab's!
Open temp_Verz & "\" & datei_temp For Output As ff
For i = 0 To Ubound( datei)
Print #ff, "chcp 1252"
Print #ff, "start """" """ & datei(i) & """"
Next
Die Frage ist nur, ob man das
Print #ff, "chcp 1252"
nur einmal einfügen muß, oder vor jeden start-Befehl. Macht aber nicht so einen großen Unterschied, oder?
muss nur einmal gemacht werden, da die Codpage dann für die Dos-Sitzung umgeschaltet ist, bis eine neue chcp-Aufforderung kommt.
Beim einem neuen Dos-Fenster steht dann die CodePage wieder auf 850.
Gruß
Dirk
Dann sag mir nur noch, wo im Script der Eintrag hin muß.
Ich hatte es eigentlich vor dem For versucht, aber das scheint nicht zu funktionieren...
Komisch! Ich mein' ich hätte es genauso probiert und da ging es nicht!
Jetzt geht's aber!
Merci!