Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: DirListBox????
Autor: Martin01
Datum: 05.02.03 23:50
Module Module1 'Da ich nicht gerne mit NETten API's arbeite, bitte testen... ' ' If ShowFolderBrowse = True Then ' MsgBox(Name) ' End IF Private Structure BrowseInfo Public hWndOwner As Integer Public pIDLRoot As Integer Public pszDisplayName As Integer Public lpszTitle As Integer Public ulFlags As Integer Public lpfnCallback As Integer Public lParam As Integer Public iImage As Integer End Structure Private Declare Function SHBrowseForFolder Lib "shell32" (ByRef lpbi As BrowseInfo) As Integer Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Integer, ByVal lpBuffer As String) As Integer Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Integer) Private propName As String Public ReadOnly Property Name() As String Get Return propName End Get End Property Public Function ShowFolderBrowse() As Boolean Try propName = "" Const BIF_RETURNONLYFSDIRS As Integer = 1 Const MAX_PATH As Integer = 260 Dim NullPos As Integer Dim IDList As Integer Dim Result As Integer Dim Path As New String(vbNullChar, MAX_PATH) Dim UDTBrowse As BrowseInfo With UDTBrowse .hWndOwner = 0 .ulFlags = BIF_RETURNONLYFSDIRS '... End With IDList = SHBrowseForFolder(UDTBrowse) If IDList <> 0 Then SHGetPathFromIDList(IDList, Path) CoTaskMemFree(IDList) NullPos = InStr(Path, vbNullChar) If NullPos > 0 Then propName = Path.Substring(0, NullPos - 1) Return True End If End If Catch Beep() End Try Return False End Function End Module

DirListBox????	246	Frank	04.02.03 11:31
Re: DirListBox????	940	Pite	04.02.03 12:14
Re: DirListBox????	1.244	DaveS	04.02.03 12:49
Re: DirListBox????	165	Martin01	04.02.03 14:06
Re: DirListBox????	852	DaveS	04.02.03 15:25
Re: DirListBox????	143	Frank	04.02.03 16:42
Re: DirListBox????	179	Martin01	05.02.03 23:50

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen