Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: mwue am 31.01.05 - 11:06:37

Titel: Suchen einer Datei mit Windows Explorerfenster
Beitrag von: mwue am 31.01.05 - 11:06:37

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 !

Titel: Re: Suchen einer Datei mit Windows Explorerfenster
Beitrag von: eknori am 31.01.05 - 11:09:30

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

Titel: Re: Suchen einer Datei mit Windows Explorerfenster
Beitrag von: koehlerbv am 31.01.05 - 11:28:03

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


Bernhard

Titel: Re: Suchen einer Datei mit Windows Explorerfenster
Beitrag von: mwue am 31.01.05 - 12:13:31

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