keuze van path door te bladeren

Status
Niet open voor verdere reacties.

fjvanlochem

Verenigingslid
Lid geworden
23 nov 2009
Berichten
53
Ik heb een procedure geschreven om een backup van een back-end te kunnen maken.
Het pad wil ik kunnen kiezen in een formulier.
Daarvoor wil ik kunnen bladeren door folders (of de verkenner) en deze keuze in een variabele te plaatsen.


Is dit mogelijk en zo ja, hoe

bvd
Floris
 
Dat is uiteraard mogelijk, en niet zo heel moeilijk. Hermee kom je een heel eind:

Code:
Private Sub cmdMapSelecteren_Click()
    strPath = SelectFolder("Selecteer een map...", "")  'CurrentProject.Path)
    If Len(strPath) Then
        Me.Documents = strPath
    Else
        MsgBox "Er is op <Cancel> gedrukt..."
    End If
End Sub

Code:
Function SelectFolder(Optional Title As String, Optional TopFolder As String) As String
Dim objShell As New Shell32.Shell
Dim objFolder As Shell32.Folder

'Deze functie maakt gebruik van de bibliotheek <Microsoft Shell Controls And Automation>
'Als je 16384 gebruikt in plaats van 1 op de volgende regel, dan worden ook de bestanden getoond.
    Set objFolder = objShell.BrowseForFolder(0, Title, 2, TopFolder)
    If Not objFolder Is Nothing Then
        SelectFolder = objFolder.Items.Item.Path & "\"
    End If
End Function
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan