Domino 9 und frühere Versionen > ND7: Entwicklung

Dateipfad auswählen Lotus Notes /Domino 8.5

<< < (5/7) > >>

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

--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete