Directory wijzigen

[danny147]

Beste

Graag zou ik een andere directory gewild hebben alvorens de userform geopend wordt.
Dit is het nu:

Function GetFolder() As String
    Dim fldr As FileDialog, sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Selecteer de directory met je foto's"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    [AA1] = sItem
    Set fldr = Nothing
End Function
Sub GetFiles()
    On Error Resume Next
    c0 = ""
    With CreateObject("scripting.filesystemobject").GetFolder(GetFolder)
        For Each fl In .Files
            c0 = c0 & fl.Name & "|"
        Next
        Columns(26).ClearContents
        [Z2].Resize(UBound(Split(c0, "|"))) = WorksheetFunction.Transpose(Split(c0, "|"))
    End With
End Sub

Sub Starten()
UserForm1.Show
End Sub

Graag zou ik willen verwijzen naar: L:\LOOPKRANEN\Afdelingen
Is dit mogelijk?

Groetjes Danny :thumb:

 

[wampier]

Hoe bedoel je dat? dat de file-dialog standaard opent in die directory? Dan moet je de initialfilename aanpassen neem ik aan

 

[danny147]

Beste wampier

De bedoeling is dat ik direct wil zoeken vanaf L:\LOOPKRANEN\Afdelingen,
zodat ik deze stappen niet meer hoeft te doen.

Grts Danny. :thumb:

 

[wampier]

En heb je initialfilepath al aangepast naar die directory?

 

[Roncancio]

Verander:

.InitialFileName = Application.DefaultFilePath

...in...

.InitialFileName = "L:\LOOPKRANEN\Afdelingen\"

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio,

Bedankt voor de aanpassing, werkt perfect wat ik ook van jou had verwacht

Groetjes Danny :thumb: