Gruß Frederik
Betrifft: AW: Dateien aus Ordnern & Unterordnern auslesen
von: Uduuh
Geschrieben am: 19. 2005 14:04:49
Hallo, warum nicht mit dem Filesearch-Objekt? Da hast du Option. Gruß aus'm Pott Udo
Geschrieben am: 20. 2005 08:32:26
Guten Morgen! Ja, stimmt, da habe ich die Möglichkeit ". SearchSubFolders = True". Danke fürs auf die Sprünge helfen!
- Vba dateinamen aus ordner auslesen in usa
- Vba dateinamen aus ordner auslesen 2020
- Vba dateinamen aus ordner auslesen
- Vba dateinamen aus ordner auslesen die
Vba Dateinamen Aus Ordner Auslesen In Usa
Guten morgen zusammen
und vielen Dank für die Hilfe, auch wenn es mich nicht so richtig weiter gebracht hat, was bestimmt nicht zuletzt an meiner noch schwachen Kentnis in VB geschuldet ist. Ich habe das ganze jetzt sehr pragmatisch mit C:> dir d:*. mp3 /B/S > gelöst und ich habe diese datei mit meiner DB verknüpft
Viele Grüße und vielen Dank
Ralf
Vba Dateinamen Aus Ordner Auslesen 2020
Bei meiner Arbeit kommt es immer wieder vor dass ich sehr viele Dateien programmatisch auslesen muss. Damit ich den Überblick behalte beim Programmieren benutze ich ein kleines Hilfsmakro welches mir alle Excel Dateien in einem Ordner (und dessen Unterordner) auflistet. Dieses VBA Werkzeug stelle ich hier allen zur Verfügung. Wie es funktioniert
Es wird nach dem auszulesenden Ordner gefragt, welcher durch den User im gewohnten Auswahlfenster angeklickt wird. Alle Excel Dateien im entsprechende Order, so wie dessen Unterordner, werden ausgelesen. Es wird eine Liste erstellt welche alle Namen der gefundenen Dateien auflistet, eine direkte Verknüpfung auf die Datei enthält, und den Ordnerpfad auf die Datei angibt. So bekommt man schnell einen Überblick wenn man vor lauter Ordner die Dateien nicht mehr sieht! VBA: Ordner- und Verzeichnisnamen auslesen und in Excel auflisten - eKiwi-Blog.de. Download
Post navigation
Vba Dateinamen Aus Ordner Auslesen
Diesem kannst du beliebige Eigenschaften und Methoden zuweisen. Habe hier mal nur die Name und die Path-Eigenschaft angelegt. Wenn du bei einem dieser benutzerdefinierten FileObjekte die Path-Eigenschaft änderst wird die Datei in den neuen Pfad verschoben. Änderst du hingegen die Name-Eigenschaft, wird die Datei umbenannt. Probiers aus. Und wie gesagt, lies dich einfach mal in die Materie ein. Klassen sind zwar aufwendig zu erstellen, aber im Nachhinein benötigt man nicht mehr so viel Code im Hauptmodul. Das spart viel Tipparbeit und bewahrt die Übersicht. Vba dateinamen aus ordner auslesen. Gruß Mr. K.
10, Okt 2021
Danke, Mr. K., für die Hilfe. Das wird mir an einer anderen Stelle sehr helfen. Wenn du bei einem dieser benutzerdefinierten FileObjekte die Path-Eigenschaft änderst wird die Datei in den neuen Pfad verschoben. Probiers aus. Ich befürchte, dass ich mich etwas missverständlich ausgedrückt habe. Die Dateien stellen nur die Quelle für die Daten im Array dar, sollen also unverändert bleiben. Ich möchte nur die Daten im Array verändern, um diese dann weiterzuverarbeiten.
Vba Dateinamen Aus Ordner Auslesen Die
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links). 26. 2019, 14:35
# 3
MOF Meister
Registrierung: 28. 11. 2011
Ort: Ungefähr 53, 2° Nord und 10, 4° Ost
Hallo Foulcrow,
das Ausgeben von Dateinamen in Datumsfolge war schon unter DOS problemlos möglich. Vba dateinamen aus ordner auslesen 2. Geht immer noch:
Option Explicit
Private Declare Sub OemToChar Lib "user32" Alias "OemToCharA" (ByVal StrFrom As String, ByVal StrTo As String)
Sub listFilesInPath()
Dim sPath As String, sFiles() As String, i As Long
sPath = "C:\Temp" ' <=== anpassen! sFiles = getFilesInPath(sPath)
For i = LBound(sFiles) To UBound(sFiles) - 1
sFiles(i)
Next i
' Liefert die Dateinamen aller passenden Dateien im angegebenen Pfads als Stringarray in Datumsreihenfolge (älteste Datei zuerst)
Private Function getFilesInPath(ByVal sPath As String, Optional ByVal sPattern As String = "*. *") As String()
sPath = IIf(Right$(sPath, 1) <> thSeparator, sPath & thSeparator, sPath) & sPattern
getFilesInPath = Split(Ascii2Ansi(CreateObject("")("cmd /c dir """ & sPath & """ /b /a:-d /o:d")), vbCrLf)
End Function
' Wandelt DOS-ASCII-Zeichen zu Windows-ANSI um
Private Function Ascii2Ansi(ByVal sAscii As String) As String
OemToChar sAscii, sAscii
Ascii2Ansi = sAscii
Hang loose, haklesoft
29.
Lies dich einfach mal in die Thematik der Klassenprogrammierung ein oder schau entsprechende YouTube Videos. Hab leider grad keine Zeit dir ein entsprechendes kleines Beispiel für den Pfad zu geben. Vielleicht morgen, es sei denn jemand Anders ist schneller
Erstmal schönen Gruß
Mr. K.
so, hab nach dem Film doch noch ein bissl rumgespielt, hier das Ergebnis. Dateinamen aus Ordner auslesen und umbenennen | Excel VBA - YouTube. Erstelle ein neues Klassenmodul und gib ihm z. den Namen FileObject. Der folgende Code gehört dann in das Klassenmodul.