Dateipfad auswählen Lotus Notes /Domino 8.5

[BigWim]

Außerdem ist der Variablenname falsch geschrieben.

Code

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

[moprheusfgh]

Hab den Teil umbenannt:

run = path + "\Microsoft Office\Office12\OrgWiz.exe " _
      + "/NAME-FIELD=Name / MANAGER-FIELD=Vorgesetzter  /DISPLAY-FIELDS=Name,Abteilung   /UNIQUEID-FIELD=Eindeutige_ID /FILENAME="+filename
      result = Shell(run, 1)

Jetzt bekomme ich die Meldung "datei nicht gefunden". Obwohl ich die Datei ausgewählt habe....

[Axel]

Ich frage nochmal: stimmt das was du bei \FILENAME angegeben hast so?

Als Dialogrückgabe heisst die Variable filenames und bei  \FILENAME nur noch filename. Außerdem was soll das + - Zeichen?

Axel

[moprheusfgh]

Das ist der vollständige Script. Wenn ich den Debugger laufen lasse, kommt "Datei not found" in der letzten Zeile: result = Shell(run, 1)


Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = uiws.CurrentDocument
   Dim path As String
   Dim run As String
   Dim pfad As String
   Dim result As Integer
   filenames = ws.OpenFileDialog( _    
   True, "Select your file",, "c:\temp")
   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="+filename
      result = Shell(run, 1)
      
   End If
End Sub

[ascabg]

Zum einen.
siehe letztes Posting von Axel

Zum Anderen.
Lt. Hilfe gibt ws.OpenFileDialog einen Array zurueck.
Muesste also hier dann nicht

filenames(0)

verwendet werden

Andreas

[Klafu]

@Alex
Das ["...FILENAME="+filename] ist von mir. Ich hab filename aus den " " rausgenommen, da es eine Variable ist.

Chris

[Axel]

@Alex
Das ["...FILENAME="+filename] ist von mir. Ich hab filename aus den " " rausgenommen, da es eine Variable ist.

Chris

Okay. Dann sollte das aber besser der richtige Operator für Stringverkettungen sein, nämlich das & - Zeichen.

Axel

[moprheusfgh]

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = uiws.CurrentDocument
   Dim path As String
   Dim run As String
   Dim pfad As String
   Dim result As Integer
   filenames = ws.OpenFileDialog( _   
   True, "Select your file",, "c:\temp")
   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"
      result = Shell(run, 1)
      
   End If
End Sub


Hab es mal soweit... Immernoch File not found.  Ich hab den Script getestet mit Filename="C:\temp..." das hat geklappt. Nur die manuelle auswahl nicht

[ascabg]

Versuch mal dieses

Code

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

[moprheusfgh]

Hab es geade probiert. Leider kommt immernoch die Meldung "File not found"

[ascabg]

Dann naechste Frage.

Wann wird der Variablen "path" ein Wert zugewiesen?


Andreas

[moprheusfgh]

Hallo Andreas und thanks,

ES FUNKTIONIERT!!!!!!!!!!!!!!!!!!!!!!

Vom lauter umschreiben, hab ich vergessen dem path einen wert zu geben.

Danke an alle. Geiles Forum!!!