Knop die een bepaalde map opent

[jelleruben]

Hallo allemaal,

Ik kom er even niet uit. Ik wil voor een applicatie een knop maken, waarbij de verkenner geopent word, met een bepaalde locatie..

Kan iemand uitleggen hoe ik dit moet doen?

 

[OctaFish]

Als je de Office bibliotheek laadt, kun je deze procedure gebruiken:

    Dim dlgPicker As FileDialog
    Dim strFileName As String
    Dim strPath As String
    Dim strFile As String
    
    If IsNull(Me.InlogNaam) Then
        MsgBox "Vul eerst een login code in.", vbCritical + vbOKOnly, "Fout"
        Exit Sub
    End If
    
    'Open de Windows bestandenlijst, met als argument het type
    Set dlgPicker = Application.FileDialog(msoFileDialogFilePicker)
    With dlgPicker
        .Title = "Selecteer een foto." 'De titel voor het venster
        '**************************************************************************
        'Pas dit aan voor map met afbeeldingen
        '**************************************************************************
        .InitialFileName = CurrentProject.Path & "\Medewerkers\"      'Waar moet het venster beginnen?
        .Filters.Add "JPG", "*.jpg", 1              'Beperk de bestandstypes tot .jpg, en maak dat het eerste item in de lijst
        .AllowMultiSelect = False                   'Slechts één bestand kiezen toegestaan
        .InitialView = msoFileDialogViewPreview     'Bepaal weergave
        If .Show = -1 Then                          'Bepaal of gebruiker op OK-knop heeft geklikt.
            strFileName = .SelectedItems.Item(1)    'String wordt gevuld met geselecteerde bestand
        End If
    End With

 

[jelleruben]

Ik heb het geprobeerd, en het werkt ook. Deze kan ik mooi gebruiken voor een andere apllicatie.

Alleen wat ik bedoelde is dat er de verkenner "deze computer" wordt geopent met een bepaalde locatie.

 

[OctaFish]

Ah, dat doe je zo:

Dim RetVal
RetVal = Shell("Explorer.EXE H:\JouwMap", 1)

 

[jelleruben]

Ja dat is hem, heel erg bedankt.