Bilder automatisiet in Access Tabelle laden

[JTBKN]

Hi Leutz ich möchte gerne eine Menge von Bildern achiviert in eine Access-Datenbank ordenen.

Bilder Tab
1. ID Schlüssel ( Pri.Schlüssel) Nummer ohne Duplikate
2. Bildname soll automatisch der Bildername sein ohne Anhang (. jpg gif ect.)
3. Das Bild selbst, oder sollte als Verknüfungsdatei zum Zielordener wo das Bild auch ist eingebunden sein

wie kann ich das realisieren hat einer von euch eine Idee mit welchen Befehlen ich arbeiten könnte oder was ich dazu lesen sollte dann schreibt mir bitte

 

[thekorn]

.fileSearch

Also hier bietet sich die FileSearch Methode an. Habe das mal schnell geschrieben. Basiert auf Excel, aber vielleicht genügt es ja sogar deinen ansprüchen, sonst muss es eben nur Beispielsweise über "Recordset" in eine Datenbank geschrieben werden.

Public Sub bilder_auflisten()
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\Meine Bilder"
    .Filename = "*.jpg"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "Es wurden " & .FoundFiles.Count & _
            " Bilder gefunden."
        For i = 1 To .FoundFiles.Count
            d_pfad = .FoundFiles(i)
            d_name = Replace(d_pfad, fs.LookIn & "\", "")
            d_name = Left(d_name, Len(d_name) - Len(.Filename) + 1)
            With Worksheets(1)
                .Hyperlinks.Add Anchor:=.Cells(i, 2), Address:=d_pfad, TextToDisplay:=d_name
            End With
        Next i
    Else
        MsgBox "Es befinden sich keine Bilder im angegebenen Ordner!"
    End If
End With

End Sub

gruß
thekorn

 

[JTBKN]

RE DANKE

DANKE ich werde versuchen das ganze zu nutzen und es auf access einbinden mal sehen ob ich das schaffe


habe es versucht leider klappt es nicht in vb 6.0