Met GetOpenFileName in bepaalde folder starten met zoeken.

Status
Niet open voor verdere reacties.
H

hellboy01

Gebruiker
Lid geworden
18 jun 2006
Berichten
333
Hi,
Weet iemand hoe je direct naar de betreffende folder gaat als je getopenfilename gebruikt want hij start vanaf het beginpunt met het zoeken naar de file en niet in "D:\ING CSV downloads" zoals ik graag zou willen.

alvast bedankt.


Code: 
Dim fName As String

ChDir ("D:\ING CSV downloads\")
fName = Application.GetOpenFilename()
 
Zoiets:
Code: 
Sub VraagBestand()
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "D:\ING CSV downloads"
        .Title = "Selecteer bestand"
        .AllowMultiSelect = False
        If .Show Then
            fName = .SelectedItems(1)
            MsgBox fName
        End If
    End With
End Sub
 
Laatst bewerkt:
Hi Edmoor,
hardstikke bedankt weer, het werkt perfect en weer wat bij geleerd.
groetjes rob

ps ik heb er nog een .FilterIndex=6 in gezet, krijg ik alleen de csv files te zien.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan