Mijn documenten openen

[paul.jacobs]

Hallo

Ik wil graag via een druk op de knop op een formulier mijn documenten openen. Weet iemand hoe ik dat voor elkaar kan krijgen?

Alvast bedankt

Paul

 

[OctaFish]

Met zoiets bijvoorbeeld:

Sub getFoto(Kaart As Variant)
Dim sUser As String, strPad As String, fileName As String
Dim result As Integer

    sUser = Environ("Username")
    strPad = "C:\Documents and Settings\" & sUser & "\Mijn documenten\"
    ' Geeft het Office-dialoogvenster Bestand openen weer waarin een kaart kan worden opgezocht.
    With Application.FileDialog(3)
        .title = "Foto selecteren"
        .Filters.Add "Alle bestanden", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = strPad
        result = .Show
        If (result <> 0) Then fileName = Trim(.SelectedItems.Item(1))
    End With

End Sub

Met dit voorbeeld worden jpg bestanden geselecteerd; met een paar kleine wijzigingen uiteraard ook voor andere bestanden te gebruiken.

 

[paul.jacobs]

dank je wel!