Zugriff auf Dateien unter WinNt

[mike6]

Hallo,

mit dem nachfolgenden Makro erhalte ich den Zugriff auf
die Laufwerke:

###########################################
Sub Laufwerkszugriff
MyDialog=createunoservice("com.sun.star.ui.dialogs.FolderPicker")
myDialog.displaydirectory="c:\"
myDialog.execute
myDialog.setMultiSelectionMode(true)
msgbox mydialog.directory
End sub
###########################################

Ich möchte nun erreichen, dass ich auch auf die Dateien(*.txt) in den
einzelnen Verzeichnissen zugreifen kann.

Wie muss ich den Code ergänzen?

PS: Habe in Google nichts gefunden.


mfg
mike6

[ykcim]

Dazu mußt Du Filepicker verwenden.

Code: Alles auswählen

Sub TestDialog
MyDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker")
myDialog.displaydirectory="c:\"
MyDialog.execute
FileName=MyDialog.Files(0)
End sub

mfg
Michael

[mike6]

Hallo Michael,

Danke!

mfg
mike6