Åbn mapper med commondialog

hvad programmerer du i VB6, VBA eller andet.

VB6

Jeg bruger denne i Excel vbam den skal i et modul.


' ************************ STIFINDER PROGRAMMET`S START ********************
Private Type BROWSEINFO
  hOwner As Long
  pidlRoot As Long
  pszDisplayName As String
  lpszTitle As String
  ulFlags As Long
  lpfn As Long
  lParam As Long
  iImage As Long
End Type

Private Declare Function SHGetPathFromIDList Lib "Shell32.dll" Alias _
            "SHGetPathFromIDListA" (ByVal pidl As Long, _
            ByVal pszPath As String) As Long
           
Private Declare Function SHBrowseForFolder Lib "Shell32.dll" Alias _
            "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
            As Long
           
Private Const BIF_RETURNONLYFSDIRS = &H1
Public Function BrowseFolder(szDialogTitle As String) As String
  Dim X As Long, bi As BROWSEINFO, dwIList As Long
  Dim szPath As String, wPos As Integer
 
    With bi
        .hOwner = hWndAccessApp
        .lpszTitle = szDialogTitle
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
   
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(512)
    X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
   
    If X Then
        wPos = InStr(szPath, Chr(0))
        BrowseFolder = Left$(szPath, wPos - 1)
    Else
        BrowseFolder = ""
    End If
End Function
' ************************ STIFINDER PROGRAMMET`S SLUT ********************


Det hele kaldes sådan

Public Sub FindSti()
MinSti = BrowseFolder("Vælg stien til dine filer")
End Sub

Vildt. Dette er bedre end hvad jeg søgte!

Smid et svar, du har sandelig fortjent nogen point.

Jeg har lige testet i VB6

dette er koden
som jeg satte i et modul


' ************************ STIFINDER PROGRAMMET`S START ********************
Private Type BROWSEINFO
  hOwner As Long
  pidlRoot As Long
  pszDisplayName As String
  lpszTitle As String
  ulFlags As Long
  lpfn As Long
  lParam As Long
  iImage As Long
End Type

Private Declare Function SHGetPathFromIDList Lib "Shell32.dll" Alias _
            "SHGetPathFromIDListA" (ByVal pidl As Long, _
            ByVal pszPath As String) As Long
           
Private Declare Function SHBrowseForFolder Lib "Shell32.dll" Alias _
            "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
            As Long
           
Private Const BIF_RETURNONLYFSDIRS = &H1
Public Function BrowseFolder(szDialogTitle As String) As String
  Dim X As Long, bi As BROWSEINFO, dwIList As Long, hWndAccessApp As Long
  Dim szPath As String, wPos As Integer
 
    With bi
        .hOwner = hWndAccessApp
        .lpszTitle = szDialogTitle
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
   
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(512)
    X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
   
    If X Then
        wPos = InStr(szPath, Chr(0))
        BrowseFolder = Left$(szPath, wPos - 1)
    Else
        BrowseFolder = ""
    End If
End Function
' ************************ STIFINDER PROGRAMMET`S SLUT ********************

Og denne i formen

Private Sub Command1_Click()
Dim MinSti As String
MinSti = BrowseFolder("Vælg stien til dine filer")
Text1.Text = MinSti
End Sub

hvad er forskellen på den nye kode og den gamle? Jeg kan se at du har ændret lidt.

der næsten ingen forskel, men der var en der ikke var dimmet
hWndAccessApp As Long

Ok. Men jeg siger i hvert fald mange tak :)

linket til hvor jeg fandt den engang

http://www.cpearson.com/excel/BrowseFolder.htm

hvis du får brug for at finde en bestemt fil, på samme måde, så se http://www.eksperten.dk/spm/729912

jeg har ikke testet den i VB6

oki - det er bare herligt! Jeg fortsætter med programmeringen :-)