Avanceret browse for folder - hvordan

Save Dialog?

Nej det er den dialog hvor du bare får mulighed for at vælge et directory.
på http://www.vb-world.net/tips/tip3.html kan du se dialogen.

Ok, I though that it was the "normal" file dialog you were refreing to. I havent seen the one you are after, sorry!

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


Brug den således:
varFoldernavn=BrowseFolder("Angiv mappe!")

Thomas I think HugoP.. wants a version where there is an EXTRA button for creating a folder, or am I missing something?

Terry har helt ret - jeg ønsker en ekstra knap.
Lidt baggrund:
Jeg har en funktion i alle mine applikationer der gør at brugerne kan tage backup af backendfilen til et eller andet directory som jeg så har en andet funktion hvor det sættes op ved at brugeren udvælger et directory via en file-browse dialog. Her er det så at det er at jeg godt ville have mulighed for at brugerne kan oprette et directory til at lægge filerne i. Alternativt skal de jo starte stifinder og oprette directoriet først.

May help you..
http://www.xdesksoftware.com/xfilesdialog.html

Prøv at udskifte linien
.ulFlags = BIF_RETURNONLYFSDIRS

med denne:

.ulFlags = 81

Det var lige det der skulle til Thomas

Thomas, I cant get that 81 to work, whats supposed to happen?

HugoP.. how did 81 help, I couldnt getanthing th happen here?

81 (og en del andre værdier) giver en [Ny Mappe]-knap i dialogboksen

thanks Thomas! Is that Ny Mappe]-knap IN the window along side the other folder icons, or is it a button above the window like a menu? I dont seem to be able to see it , but then I do need glasses:o)

Hos mig kommer der en ekstra knap nederst med teksten 'New folder'
Endvidere bliver det muligt at 'resize' vinduet og der kommer en textbox under vinduet med directoryoversigten.

Strange! I see no difference at all here, maybe its because I am using NT 4.0

uden tvivl, Terry. Jeg har før oplevet at disse dialogbokse opførte sig forskelligt på NT.

thanks :o)

Det fungerer heller ikke altid med 81 på Windows 9x har jeg fundet ud af.