.dbf in .txt

Option Explicit
Sub dbf2txt()

Const sSPath As String = "Z:\" 'Quellpfad - bitte anpassen; \ am Ende erforderlich  
Const sSExt as String = ".dbf"  
Const sTPath As String = "Z:\" 'Zielpfad - bitte anpassen; \ am Ende erforderlich  
Const sTExt As String = ".txt" 'Extension der Zieldatei  

Dim fso As Object, oFolder As Object, oFile As Object
Dim sFileName As String, sExt As String, sNameOnly As String

Set fso = CreateObject("Scripting.FileSystemObject")  
Set oFolder = fso.GetFolder(sSPath)

For Each oFile In oFolder.Files
    sFileName = oFile.Name
    sExt = LCase(Right(sFileName, 4))
    sNameOnly = Left(sFileName, Len(sFileName) - 4)
    If sExt = sSExt Then
        Workbooks.Open Filename:=sSPath & sFileName
        ActiveWorkbook.SaveAs Filename:=sTPath & sNameOnly & sTExt, FileFormat:=xlCSV, CreateBackup:=False
        ActiveWorkbook.Saved = True
        ActiveWorkbook.Close
    End If
Next
End Sub