Hallo,
Klafu war schneller mit der Frage.
Was moechtest Du?
Mit ein bisschen Code hilft eventuell aber auch schon
FileName = NotesUIWorkspace.OpenFileDialog(...)
Aus dem Rueckgabewert kann man ohne groesseren Aufwand den gewaehlten Pfad extrahieren.
Aber auch
@Prompt([LocalBrowse]; "Select File"; 1)
waere eventuell eine Alternative
Andreas
Hier noch ein kleines beispiel aus der Notes Hilfe.
Löscht das über die OpenFileDialog-box ausgewählte File
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
REM Get filename from user
filenames = ws.OpenFileDialog( _ ' hier wird der variablen das der Pfad zugewiesen
True, "Select files to be deleted",, "c:\work")
If Not(Isempty(filenames)) Then
Forall filename In filenames
Kill filename ' hier wird mit dem Pfad weitergearbeitet
End Forall
End If
End Sub
hier ein kleiner Auszug
Datei:= @Prompt([LocalBrowse]; "Wählen Sie die Datenbank, die geöffnet werden soll"; "1");
@If(Datei = ""; @Return(1); "");
Andreas
Außerdem ist der Variablenname falsch geschrieben.
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
filenames = ws.OpenFileDialog( _
True, "Select files to be deleted",, "c:\work")
If Not(Isempty(filenames)) Then
run = path + "\Microsoft Office\Office12\OrgWiz.exe " _
+ "/NAME-FIELD=Name / MANAGER-FIELD=Vorgesetzter /DISPLAY-FIELDS=Name,Abteilung /UNIQUEID-FIELD=Eindeutige_ID /FILENAME="+filenames
stop
result = Shell(run, 1)
End If
End Sub
Probier mal das und teile mal mit, was in der Variable RUN steht. Vor allem der Teil nach /FILENAME.
Markus
Versuch mal dieses
run = path & "\Microsoft Office\Office12\OrgWiz.exe " _
& "/NAME-FIELD=Name / MANAGER-FIELD=Vorgesetzter /DISPLAY-FIELDS=Name,Abteilung /UNIQUEID-FIELD=Eindeutige_ID /FILENAME=" & filenames(0)
result = Shell(run, 1)
Andreas