Alle Dateien eines Ordners

[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

[TomLudwig]

ja wunderbar... vielen vielen dank....

ich liebe dieses forum...