file opzoeken en url bewaren

[marco17]

Kan er mij iemand eens kort en duidelijk uitleggen hoe ik voor mijn gebruikers een scherm kan tevoorschijn halen waar ze kunnen navigeren en de file uitzoeken?

heb het gevonden met volgende code
alleen er zit nog 1 foutje in, hij zet momenteel ook vooraan nog een \ wijl hij dit eigenlijk niet mag doen.

Public Function BrowseFolder() As String

Dim bi As BrowseInfo
Dim pidl As Long
Dim path As String
Dim Pos As Integer

BrowseFolder = ""

' pointer to root folder (0 for desktop)
bi.pidlRoot = 0
' message
bi.lpszTitle = "Please select a Folder"
' browsing type (&H1 for folders, &H4000 for folders and files)
bi.ulFlags = &H4000
' show the dialog
pidl = SHBrowseForFolder(bi)
path = Space$(MAX_PATH)

If SHGetPathFromIDList(ByVal pidl, ByVal path) Then
Pos = InStr(path, Chr$(0))
BrowseFolder = Left(path, Pos - 1)
End If

If (Right$(BrowseFolder, 1) <> "\" And BrowseFolder <> "") Then
BrowseFolder = "\" & BrowseFolder
End If

Call CoTaskMemFree(pidl)

End Function

 

[Axel Hagg]

> file opzoeken en url bewaren

Dag Marco,

Gebruik een ingebouwde Dialog: Dialogs(wdDialogFileOpen).Show (zie ook Help)

Je kunt ook zelf iets maken:

Dim f
Dim n as Integer

n=-1
With CreateObject("Scripting.FileSystemObject")
For each f in >GetFolder("C:\").Files
n=n+1
Combo1.AddItem ""
Combo1.Column(0,n)=f.Path
Combo1.Column(1,n)=f.Name
Next
End With

Je kunt dit zo uitgebreid maken als je wilt. (Kijk ook in Help bij FileSystemObject

Succes,

Axel.

 

[marco17]

bedankt axel

maar heb het intussen al gevonden

de &H1 moest ik vervangen door &H4000

en bijkomend de extra \ gewoon wegdoen dan gaat het perfect met wat ik heb.


het jouwe is intussne geheel nieuw voor mij en dat zou weer extra zoekwerk opgeleverd hebben

 

[Dworkin]

Dag Marco,

Gebruik een ingebouwde Dialog: Dialogs(wdDialogFileOpen).Show (zie ook Help)

Is het bij deze ook mogelijk om de start map waarin gezicht wordt aan te passe? Heb al bij help gekeken maar vindt ze niet direct...

 

[Axel Hagg]

Dag Dworkin,

With Dialogs(wdDialogFileOpen)
.Name = "C:\Windows\" (het pad van de startmap
.Show
End With

Succes,

Axel

 

[Dworkin]

ok bedankt

 

[Wigi]

Zet de vraag nog op opgelost aub.