Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Dateinamen aus Ordner in Tabelle schreiben
zurück: If-bedingung mit leeren Feldern weiter: Feldinhalt in MSGBOX anzeigen lassen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Sebimi
nicht mehr ganz blutiger Anfänger


Verfasst am:
23. Nov 2007, 09:29
Rufname: Online

Dateinamen aus Ordner in Tabelle schreiben - Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

Guten Morgen zusammen.

Ich habe einen Ordner, in dem Belege abgespeichert sind als PDF.
Nun möchte ich die Dateinamen (ohne Endung pdf) in einer Tabelle in meiner Datenbank auflisten.

Wie kann ich das realisieren, so dass es auch von der Laufzeit her nicht allzu lang ist???

Freu mich über jede Hilfe ;)


Zuletzt bearbeitet von Sebimi am 23. Nov 2007, 12:17, insgesamt einmal bearbeitet
Kabutoo
Access lerning by doing Möchtegern


Verfasst am:
23. Nov 2007, 13:28
Rufname:


AW: Dateinamen aus Ordner in Tabelle schreiben - AW: Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

Such in der Online Hilfe nach "FileDialog". Hier eine Idee:
Code:
            With Application.FileDialog(msoFileDialogFilePicker)
                .Title = "pdf suchen"
                .InitialView = msoFileDialogViewDetails
                '.InitialFileName = VorgabePfad
                .Filters.Clear
                .Filters.Add "PDF-Datei", "*.pdf"
                .Filters.Add "Alle Dateien", "*.*"
                If .Show = -1 Then
                    'Wenn User ein Ziel gewält hat
                    PfadundDateiname= .SelectedItems(1)
                  Else
                    'Wenn er abbricht
                End If
            End With
Sebimi
nicht mehr ganz blutiger Anfänger


Verfasst am:
23. Nov 2007, 13:52
Rufname: Online

AW: Dateinamen aus Ordner in Tabelle schreiben - AW: Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

Auf jeden Fall schon mal Danke für die Antwort.
Werde mir "FileDialog" mal anschauen.
Nur weiss ich, so auf den ersten Blick gedacht, nicht ob das nicht eher für was anderes gedacht ist.

Ich konkretisier mal mein Beispiel noch etwas.

Eigentlich will ich einen VBA-Code schreiben, der das automatisiert jeden Abend ablaufen lässt.
Es existiert ein Verzeichnis "SKK" Dort soll nachgeschaut werden, ob zu jeder dort vorhandenen Datei auch ein passender Datensatz in einer Tabelle vorhanden ist.
Deshalb will ich ja auch die Dateinamen aufgelistet in einer Tabelle haben, um die beiden Tabellen am Ende zu vergleichen.

Ich weiss gar nicht, was du mit dem User da im Code willst.("Wenn User ein Ziel gewählt hat"). Da z.B. versteh ich den Zusammenhang nicht so recht.
Kabutoo
Access lerning by doing Möchtegern


Verfasst am:
23. Nov 2007, 14:00
Rufname:

AW: Dateinamen aus Ordner in Tabelle schreiben - AW: Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

OK, FileDialog ist gedacht damit der User in der Standartoberfläche eine Datei auswählt. Nach deinem 2. Post sehe ich aber ein, dass das nicht das gesuchte ist ;) Konnte man nicht mit
Code:
    Debug.Print Dir("c:\")
oder sowas eine Auflistung erhalten *grübel* ...
Sebimi
nicht mehr ganz blutiger Anfänger


Verfasst am:
23. Nov 2007, 14:06
Rufname: Online


AW: Dateinamen aus Ordner in Tabelle schreiben - AW: Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

Perfekt, dank dir. Nun kann ich schon mal in einem Formular die erste Datei aus einem Ordner Anzeigen, aber erst mal nur die erste.
Die könnte ich ja nun in eine Tabelle speichern.
Nur muss ich dann irgendwie die anderen auch noch abspeichern können.
Da hängts auch schon wieder.
Kabutoo
Access lerning by doing Möchtegern


Verfasst am:
23. Nov 2007, 14:14
Rufname:

AW: Dateinamen aus Ordner in Tabelle schreiben - AW: Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

Hab eben 2 Minuten gegoogelt, hilft Dir
Code:
Private Sub BtnOrdnerLaden_Click()
    Dim vPfadBilder As String
    Dim fs As FileSystemObject
    Dim vFolder As Folder

    'Init
    vPfadBilder = DLookup("Wert", "tblSystem_Variablen", _
                          "IDVariable Like 'PfadBilder'")
    Set fs = CreateObject("Scripting.FileSystemObject")
    For Each vFolder In fs.GetFolder(vPfadBilder).SubFolders
        '...
    Next vFolder
End Sub
weiter (ungetestet)?
Quelle: Ordner oder Dateien unter Access lesen
Sebimi
nicht mehr ganz blutiger Anfänger


Verfasst am:
23. Nov 2007, 14:21
Rufname: Online

AW: Dateinamen aus Ordner in Tabelle schreiben - AW: Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

Das scheint schon irgendwie das richtige zu sein, nur verstehe ich es nur bedingt.
Bin leider nach wie vor nicht der geübteste Access-Anwender.

Was bei DLookup() der Wert und was tblSystem_variablen bezweckt versteh ich nicht.

Zudem meckert der Debugger bei:
Code:
    Dim fs As FileSystemObject


Zuletzt bearbeitet von Sebimi am 23. Nov 2007, 14:29, insgesamt einmal bearbeitet
Willi Wipp
Moderator


Verfasst am:
23. Nov 2007, 14:28
Rufname:
Wohnort: Raum Wiesbaden

Re: Dateinamen aus Ordner in Tabelle schreiben - Re: Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

Hi Sebimi,

das ist nicht unbedingt noetig, soll nur eine variable Speicherung des Bildpfades ermoeglichen.
Auch die Verwendung von Like an dieser Stelle ist eher fragwuerdig Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Sebimi
nicht mehr ganz blutiger Anfänger


Verfasst am:
23. Nov 2007, 14:31
Rufname: Online

AW: Dateinamen aus Ordner in Tabelle schreiben - AW: Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

Wenn ich ehrlich bin, versteh ich langsam immer weniger Sad
Willi Wipp
Moderator


Verfasst am:
23. Nov 2007, 14:43
Rufname:
Wohnort: Raum Wiesbaden

Re: Dateinamen aus Ordner in Tabelle schreiben (II) - Re: Dateinamen aus Ordner in Tabelle schreiben (II)

Nach oben
       Version: Office 2003

Hi Sebimi,

der Code soll zeigen wie Du z.B. durch die Unterordner (Auflistung SubFolders) laufen kannst.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Sebimi
nicht mehr ganz blutiger Anfänger


Verfasst am:
23. Nov 2007, 14:55
Rufname: Online

AW: Dateinamen aus Ordner in Tabelle schreiben - AW: Dateinamen aus Ordner in Tabelle schreiben

Nach oben
       Version: Office 2003

Sebimi am 23. Nov 2007 um 13:47 hat folgendes geschrieben:
Hmm, mist, dann versteh ich den Code nicht wirklich.
Ich hab mit FSO noch nicht wirklich mal was gemacht und ich finde die MS-Hilfe auch sehr prickelnd.

Muss ich bei FileSystemObject noch irgendwas beachten?
Denn ich bekomme immer eine Fehlermeldung zwecks benutzerdefiniertem Datentyp.
Willi Wipp
Moderator


Verfasst am:
23. Nov 2007, 14:55
Rufname:
Wohnort: Raum Wiesbaden


Re: Dateinamen aus Ordner in Tabelle schreiben (III) - Re: Dateinamen aus Ordner in Tabelle schreiben (III)

Nach oben
       Version: Office 2003

Hi Sebimi,

hier ein etwas passenderes Beispiel Ordnerinhalt in Listbox anzeigen
Schreibt die Dateien in ein Listenfeld.
Verweis siehe fsoObject As FileSystemObject einbinden

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle per button öffnen 1 Lordoo 1454 14. Jul 2004, 14:05
lothi Tabelle per button öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Kreuztabellenabfrage für neue Tabelle nutzen 3 WaterMan 805 06. Jul 2004, 14:39
mabe38 Kreuztabellenabfrage für neue Tabelle nutzen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle exportieren als Excel2000 Arbeitsblatt 1 thomassch 916 06. Jul 2004, 12:46
stpimi Tabelle exportieren als Excel2000 Arbeitsblatt
Keine neuen Beiträge Access Tabellen & Abfragen: Tage auf Datum addieren und an bestehende Tabelle anfügen... 1 lorelei 1234 11. Jun 2004, 08:38
stpimi Tage auf Datum addieren und an bestehende Tabelle anfügen...
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate einer Tabelle löschen?! 3 Esel 2108 28. Mai 2004, 08:53
lothi Duplikate einer Tabelle löschen?!
Keine neuen Beiträge Access Tabellen & Abfragen: Spaltennamen einer Tabelle ermitteln 1 Alexander Neron 899 27. Mai 2004, 13:47
lothi Spaltennamen einer Tabelle ermitteln
Keine neuen Beiträge Access Tabellen & Abfragen: kein Wert in der Tabelle, dann immer Null (0)?? 3 Michel_9 1005 26. Mai 2004, 14:28
Michel_9 kein Wert in der Tabelle, dann immer Null (0)??
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle formatiert in txt-Datei exportieren 1 robby 1115 12. Apr 2004, 23:10
Helge Tabelle formatiert in txt-Datei exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: Werte aus Formular per VBA in andere Tabelle anfügen 1 Gast 1861 04. Apr 2004, 21:27
el_gomero Werte aus Formular per VBA in andere Tabelle anfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeilenumbruch nach Einfügen Word Tabelle 2 topflop 1698 30. März 2004, 16:06
Gast Zeilenumbruch nach Einfügen Word Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Wert einer Abfrage in Tabelle kopieren? 1 BerlinerWolf 2009 21. März 2004, 12:43
Maya Wert einer Abfrage in Tabelle kopieren?
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Abfrage nicht mehr möglich in DB zu schreiben??!! 1 El_Kloncks 498 18. März 2004, 09:59
lothi Nach Abfrage nicht mehr möglich in DB zu schreiben??!!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps