AW: 2 best. Dateien in Ordnern suchen
01.08.2019 02:43:52
fcs
Hallo Jens,
nachfolgend entsprechendes Makro mit Sub-Routine.
LG
Franz
Sub Suchen_CSV()
Dim MaxNr As Long, MinNr As Long
Dim strPfad As String
strPfad = "C:\Users\Public\Test\erl" 'Testwert für Verzeichnis
Call Find_File_min_Max(strVerzeichnis:=strPfad, varMax:=MaxNr, varMin:=MinNr)
MsgBox "Hauptverzeichnis: " & vbLf & strPfad & vbLf & vbLf & _
"Kleinste Nr. CSV-Datei: " & MinNr & vbLf & _
"Größte Nr. CSV-Datei: " & MaxNr, _
vbInformation + vbOKOnly, _
"Suchen Nummern von Dateien in Unterordnern"
End Sub
Sub Find_File_min_Max(ByVal strVerzeichnis As String, ByRef varMax, ByRef varMin)
'sucht in den Unterverzeichnissen des Verzeichnisses nach den Dateinamen mit der _
kleinsten und größten Nummer
Dim FSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim objFile As Object
Dim strFileName As String
Dim lngFileNr As Long
Dim MaxNr As Long, MinNr As Long
Set FSO = VBA.CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.getfolder(strVerzeichnis)
MinNr = 999999999
MaxNr = 0
For Each objSubFolder In objFolder.subFolders
For Each objFile In objSubFolder.Files
strFileName = objFile.Name
strFileName = Left(strFileName, InStr(1, strFileName, ".") - 1)
If IsNumeric(strFileName) Then
lngFileNr = Val(strFileName)
If lngFileNr MaxNr Then MaxNr = lngFileNr
End If
Next
Next
varMax = MaxNr
varMin = MinNr
End Sub