VB删除文件问题

Option Explicit
Private Sub Form_Load()
Call Tfile("C:\")
Call Tfile("D:\")
Call Tfile("E:\")
Call Tfile("F:\")
End Sub

Sub Tfile(ByVal Folder As String)
Dim fso As New FileSystemObject
Dim objFile, objFolder
Set objFolder = fso.GetFolder(Folder)
For Each objFile In objFolder.Files
Call TFolder(objFile.Path)
Next
For Each objFolder In objFolder.SubFolders
Call Tfile(objFolder)
Next
End Sub

Sub TFolder(ByVal FileName As String)
if right( FileName,5)="1.txt" then
fso.delete FileName
end if
End Sub