Domino 9 und frühere Versionen > ND6: Entwicklung

Suchen einer Datei mit Windows Explorerfenster

(1/1)

mwue:
Hallo,

ich lese einzelne Excel Dateien in meine Datenbank ein und erzeuge aus jeder Excel Datei ein neues Notes Dokument.
Bislang habe ich den Dateinamen der Excel Datei wie folgt abgefragt:

pfad = "C:\Temp\projekt.xls"           ' Vorgabepfad
file = inputbox ("Bitte Dateiname + Pfad eingeben","Excel Datei",pfad)

Ich würde den Anwender aber lieber mit einem Windowsfenster die Datei im Filesystem suchen lassen. Gibt es eine solche Möglichkeit ?

Vielen Dank !

eknori:
guckst du http://www.atnotes.de/index.php?topic=20311.msg127003#msg127003

koehlerbv:
Aber warum dafür die API bemühen ?  notesUIWorkspace.OpenFileDialog tut es doch genauso.


Bernhard

mwue:
Vielen Dank für die Antworten !

Bernhard, das mit ws.OpenFileDialog war wirklich ein genialer Tipp. Ganz herzlichen Dank !!!     ;) ;D

So kann ich nicht nur viel bequemer an den Pfad kommen, sondern jetzt sogar mehrere Dokumente auf einmal einlesen.

Dim ws As New NotesUIWorkspace
  REM Get filename from user
  filenames = ws.OpenFileDialog( _
  True, "Select files to be read",, "c:\work")
  If Not(Isempty(filenames)) Then
    Forall filename In filenames
      ' Lese Dokument ein ...
    End Forall
  End If

Gruss

Marion

Navigation

[0] Themen-Index