#

 

 

 

Der folgende vba Code zeigt wie man in Microsoft Access einen Filedialog erstellt und die ausgewählten Dateien auswertet.

 

Filedialog in MS Access

Der Filedialog erscheint wie hier gezeigt. Man kann Dateien nach dem Öffnen auswählen und mit dem Öffnen Button übernehmen.

 

 

Und die ausgewählten Dateien

 

Vba

Der Dateidialog wird erstellt als Application.FileDialog und man kann den Button als Text einstellen, die Vorgabe der ausgewählten Dateiendungen und das Basis-Verzeichnis mit welchem gestartet werden soll.

 

    '--< Import-Dialog >--

    Dim objFiledialog As FileDialog

    Set objFiledialog = Application.FileDialog(msoFileDialogFilePicker)

    objFiledialog.AllowMultiSelect = True

    objFiledialog.ButtonName = "Import Images"

    objFiledialog.Filters.Add "Images Photos", "*.jpg;*.png;*.tiff;*.gif"

    objFiledialog.Title = "Fotos auswählen.."

    objFiledialog.InitialView = msoFileDialogViewTiles

    'objFiledialog.InitialFileName = const_Path_Photos_Default

    objFiledialog.AllowMultiSelect = True

    If Not objFiledialog.Show() = True Then

        Exit Sub

    End If

    '--< Import-Dialog >--

 

 

Die ausgewählten Dateien kann man als SelectedItems durchlaufen. Zurückgegeben wird der Dateipfad als string.

For iFile = 1 To objFiledialog.SelectedItems.Count

        '------< Loop.Item  >------

        DoEvents

 

        '< get selection >

        sFilename = objFiledialog.SelectedItems(iFile)

        '</ get selection >

 

        sFiles = sFiles & vbCrLf & sFilename

    Next

 

 

 

Empfehlung:

Alles was man dazu einbinden sollte in der vba Datei in Referenzen ist die Office Object Library. Aber das ist kein Muss.

 

Public Sub fg_Bilder_Holen()

    '--------------------< fg_Bilder_Holen() >--------------------

    '--< Import-Dialog >--

    Dim objFiledialog As FileDialog

    Set objFiledialog = Application.FileDialog(msoFileDialogFilePicker)

    objFiledialog.AllowMultiSelect = True

    objFiledialog.ButtonName = "Import Images"

    objFiledialog.Filters.Add "Images Photos", "*.jpg;*.png;*.tiff;*.gif"

    objFiledialog.Title = "Fotos auswählen.."

    objFiledialog.InitialView = msoFileDialogViewTiles

    'objFiledialog.InitialFileName = const_Path_Photos_Default

    objFiledialog.AllowMultiSelect = True

    If Not objFiledialog.Show() = True Then

        Exit Sub

    End If

    '--< Import-Dialog >--

 

 

    '-< check >-

    '</ Ordner ist leer >

    If objFiledialog.SelectedItems().Count = 0 Then

        Exit Sub

    End If

    '</ Ordner ist leer >

    '-</ check >-

 

    Dim sFiles As String

 

    Dim iFile As Integer

    Dim sFilename As String

    For iFile = 1 To objFiledialog.SelectedItems.Count

        '------< Loop.Item  >------

        DoEvents

 

        '< get selection >

        sFilename = objFiledialog.SelectedItems(iFile)

        '</ get selection >

 

        sFiles = sFiles & vbCrLf & sFilename

    Next

 

    '< show result >

    MsgBox sFiles, vbInformation, "Selected Files"

    '</ show result >

 

    '--------------------</ fg_Bilder_Holen() >--------------------

End Sub

 

Mobile

.

0123movie.net