Sub AnzDateien()
Dim A As String
anz = 0
A = Dir("C:\temp\*.use", 7)
Do
anz = anz + 1
Sheets(1).Cells(anz, 1) = A
A = Dir
Loop Until A = ""
MsgBox "Es sind " & anz & " Dateien in diesem Ordner!"
End Sub
Option Explicit
Option Base 1
Public Sub test()
Dim endung, pfad, gesucht
endung = ".tmp"
pfad = "C:\Temp"
gesucht = DateienMitEndung(pfad, endung)
If (VBA.VarType(gesucht) <> vbNull) Then
Dim temp, str
str = ""
For Each temp In gesucht
str = str & temp & vbCrLf
Next temp
End If
If (VBA.Len(str) > 0) Then MsgBox str Else MsgBox "Keine Dateien mit Endung " & endung & " .", vbInformation, pfad
End Sub
Private Function DateienMitEndung(ByVal i_strFolderName As String, _
ByVal i_strEndung As String) As Variant
Dim arrDateienMitEndung() As Variant
Dim objFileSystem As Object
Dim objFolder As Object
Dim objFile As Object
Dim intFilesCount As Integer
On Error GoTo Err_In_DateienMitEndung
DateienMitEndung = Null
Set objFileSystem = VBA.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSystem.getfolder(i_strFolderName)
intFilesCount = 0
For Each objFile In objFolder.Files
If (VBA.Right(objFile.Name, VBA.Len(i_strEndung)) = i_strEndung) Then
intFilesCount = intFilesCount + 1
ReDim Preserve arrDateienMitEndung(intFilesCount)
arrDateienMitEndung(intFilesCount) = objFile
End If
Next objFile
If (intFilesCount > 0) Then DateienMitEndung = arrDateienMitEndung
Set objFolder = Nothing
Set objFileSystem = Nothing
Err_In_DateienMitEndung:
End Function