Domino 9 und frühere Versionen > ND6: Entwicklung

Alle Dateien eines Ordners

(1/1)

TomLudwig:
Hallo zusammen,

ich möchte alle Dateien die in einem "Windows Ordner" sind durchgehen.
Wie kann ich das am besten bewerkstelligen, sodass der User mir nur noch den Pfad zum jeweiligen Ordner geben muss.

Vielen Dank.

Gruß, Tom

P.S.: Ich möchte nicht mit NotesUiWorkspace.OpenFileDialog arbeiten, wenns geht...

koehlerbv:
Hilft Dir evtl. schon die LS function Dir[$] ?

Bernhard

TomLudwig:
Ja wunderbar.
Jetzt vielleicht noch ein Schöner Dialog wo man den Ordner auswählen kann um nicht
C:\Lotus\Notes\Data\blablub\

eingeben zu müssen.

Gibts sowas?

Vielen Vielen Dank, schon mal...

diali:
geht mit der Win-API

--- Code: ---Type BrowseInfo
hwndOwner     As Long
pIDLRoot     As Long
pszDisplayName As Long
lpszTitle     As Long
ulFlags        As Long
lpfnCallback As Long
lParam         As Long
iImage         As Long
End Type

Const vbNullChar = &H0
Const vbNullString = &H0

Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32" (Byval pidList As Long, Byval lpBuffer As String) As Long
Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (Byval lpString1 As String, Byval lpString2 As String) As Long

Function BrowseForFolder(Titel As String, hWnd As Long) As String
Dim lngIDList As Long
Dim strBuffer As String
Dim usrBrowseInfo As BrowseInfo

usrBrowseInfo.hwndOwner = hWnd
usrBrowseInfo.lpszTitle = lstrcat("C:\Temp" & vbNullChar, "")
usrBrowseInfo.ulFlags = 3
usrBrowseInfo.pIDLRoot = lstrcat("C:\Temp", "")

lngIDList = SHBrowseForFolder(usrBrowseInfo)
If (lngIDList) Then
strBuffer = Space(260)
SHGetPathFromIDList lngIDList, strBuffer
strBuffer = Fulltrim(strBuffer)
If Right(strBuffer, 1) <> "\" Then strBuffer = strBuffer & "\"
BrowseForFolder = strBuffer
End If
End Function
Sub Click(Source As Button)
Msgbox BrowseForFolder(0,&H0)
End Sub
--- Ende Code ---

TomLudwig:
ja wunderbar... vielen vielen dank....

ich liebe dieses forum...

Navigation

[0] Themen-Index