vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Windows API
GetFileDir mit bestimmtem Ordner 
Autor: _chris
Datum: 15.12.11 13:45

Hallo zusammen!

Kann mir jemand sagen, wie oder was ich in folgendem Code ändern muß, um nur die Unterordner eines bestimmten Ordners - nennen wir ihn mal "strFolderX" also z.B. C:\Daten\ - anzuzeigen. Die oberste Ebene soll nicht "Arbeitsplatz" sein, sondern eben dieser Ordner.

Vielen Dank und beste Grüße!
Chris

Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal _
  lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) _
As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As _
Long, ByVal lpBuffer As String) As Long
 
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
 
Private 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
 
Public Function GetFileDir() As String
 
    Const PROCNAME As String = "GetFileDir"
 
    On Error GoTo ErrorHandler
 
    Dim ret As String
    Dim lpIDList As Long
    Dim sPath As String
    Dim udtBI As BrowseInfo
    Dim RdStrings() As String
    Dim nNewFiles As Long
 
    'Show a browse-for-folder form:
    With udtBI
        .lpszTitle = lstrcat("Ordnerauswahl:", "")
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
 
    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList = 0 Then Exit Function
 
    'Get the selected folder.
    sPath = String$(MAX_PATH, 0)
    SHGetPathFromIDList lpIDList, sPath
    CoTaskMemFree lpIDList
 
    'Strip Nulls
    If (InStr(sPath, Chr$(0)) > 0) Then sPath = Left$(sPath, InStr(sPath, _
      Chr(0)) - 1)
 
    'Return Dir
    GetFileDir = sPath
 
ExitScript:
    Exit Function
ErrorHandler:
    '...
End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
GetFileDir mit bestimmtem Ordner6.556_chris15.12.11 13:45
Re: GetFileDir mit bestimmtem Ordner4.047ModeratorMartoeng18.12.11 14:36

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel