Suchen einer Datei mit Windows Explorerfenster

[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 !!!    

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