Windows API Befehl für Pfadauswahl?

Mykoleus · 2. Juli 2007

Weiss einer von euch die API Funktion für den Verzeichnisauswahldialog oder wie man NEMGetFile benutzen kann um den Pfad zu erhalten?

Hier ist das NEMGetFile Script

Code

Declare Function NEMGetFile Lib "NNOTESWS" Alias "NEMGetFile" _
( Z As Integer, Byval N As Lmbcs String, Byval F As Lmbcs String, Byval T As Lmbcs String ) As Integer
Dim UNC As String * 512
Declare Function WNetGetConnection Lib "mpr.dll" Alias _
"WNetGetConnectionA" _
(Byval lpszLocalName As String, _
Byval lpszRemoteName As String, _
cbRemoteName As Long) As Long

Diali · 2. Juli 2007

hier der Code für die Win-API

Gruß
Dirk

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 LongEnd TypeConst vbNullChar = &H0Const vbNullString = &H0Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As LongDeclare Function SHGetPathFromIDList Lib "shell32" (Byval pidList As Long, Byval lpBuffer As String) As LongDeclare Function lstrcat Lib "kernel32" Alias "lstrcatA" (Byval lpString1 As String, Byval lpString2 As String) As Long

Code

Sub Click(Source As Button)	Msgbox BrowseForFolder(0,&H0)End Sub

Code

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

Alles anzeigen

Mykoleus · 2. Juli 2007

Danke

taurec · 2. Juli 2007

Wieso verwendest du nicht einfach den über die Klasse NotesUIWorkspace Dateidialog ?

Windows API Befehl für Pfadauswahl?

Teilen

Benutzer online in diesem Thema