title image


Smiley Re: API / Pfad ermitteln
schau mal hier, ein bisschen code für dich:





Sub TestFilePickerDialog()

    With Access.FileDialog(msoFileDialogFilePicker)

        .Title = "TITEL:"               'titel des dialogs

        .AllowMultiSelect = False       'legt fest, dass du nur einzelne dateien auswählen kannst

        .Filters.Clear                  'löscht alle einträge im dateitypen_combofeld des dialogs

        .Filters.Add "Access Files", "*.mdb", 1     'trägte einen dateityp ein

        .Show                               'dialog wird angezeigt

        If .SelectedItems.Count > 0 Then    'wurde eine auswahl getroffen?

            MsgBox .SelectedItems.Item(1)   'gibt den kompletten pfad der ausgewählten datei zurück

        Else

            MsgBox "Abgebrochen!", vbCritical

        End If

    End With

End Sub 



hilft das?
.(o-......This is Linux Country..........-o) .//\.......On a quiet night, you.......... /\\ V_/_....can hear Windows reboot.._\_V

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: