VB6 ???

Læg denne kode på en form med én knap


Private Sub Command1_Click()


ssFDESKTOP = &H0                'Desktop er udgangspunkt
ssFFLAGS = &H1
ssFTEXT = "Vælg en folder"

sSelectedPath = SelectFolder(ssFDESKTOP, ssFTEXT, ssFFLAGS)
End Sub

Function SelectFolder(ssFROOT, ssFASK, ssFFLAGS)


  Set oSHA = CreateObject("Shell.Application")
  Set oSF = oSHA.BrowseForFolder(0, ssFASK, ssFFLAGS, ssFROOT)
  If InStr(TypeName(oSF), "Folder") <> 1 Then Exit Function
  For Each oItem In oSF.ParentFolder.Items
    If oItem.Name = oSF.Title Then
      SelectFolder = oItem.Path
      Exit Function
    End If
Next
SelectFolder = oSF.Title
End Function

//akj

Er der ikke en andre måder ??

Det ved jeg ikke, jeg bruger ovenstående.

//akj

Jeg har brug for en hel Path og den du gav mig giver mig kun et mappe navn.

sSelectedPath = SelectFolder(ssFDESKTOP, ssFTEXT, ssFFLAGS)
MsgBox sSelectedPath

Hos mig giver det den fulde sti.

Hvilket OS har du ??

//akj

Win98se

Hvorfor vil du bruge en anden måde - det gør jo præcis(!!) hvad du ønsker. Hvis du ønsker det på en anden måde, hvad er det så du synes der skal ændres?

Alternativ: Brug Drive, Dir og Filelist-komponenterne i VB - det kommer til at se lidt anderledes ud, men det er nemt og enkelt (det er ovenstående vel også)

Prøv lige at se om dette ikke virker.
Der er både source og en .exe.

//akj

http://www.eybye-kjaer.dk/uploads/files/browse.zip

Jeg har leget lidt med det for at få det til at virke

Private Sub Command1_Click()

ssFDESKTOP = &H0
ssFFLAGS = &H1
ssFTEXT = "Vælg en folder"
Set oSHA = CreateObject("Shell.Application")
Set oSF = oSHA.BrowseForFolder(0, ssFASK, ssFFLAGS, ssFROOT)
SelectFolder = oSF.Title
Label1.Caption = SelectFolder

End Sub

Men det forbliver en mappe !

Hmm ja det virker

Det var godt :-9

Tak for pts.

//akj