一个问题，50分求助

Question

Function FileExist(Fname As String) As Boolean
   On Local Error Resume Next
   FileExist = (Dir(Fname) <> "")
End FunctionPublic Sub deletefile(Fname As String)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists(Fname)) Then
       fso.deletefile (Fname)
   End If
   Sleep 1000
End SubPrivate Sub init_Folder()
   Dim fs
   Dim fldr
   Dim aa
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set fldr = fs.CreateFolder(App.Path + "\INI")
   Sleep 1000
   Set aa = fs.CreateTextFile(App.Path + "\INI\readme.txt", True)
   aa.WriteLine ("INI文件夹中的文本文挡，用于自动催款及催款通话结果，请不要随意删除或移动。")
   aa.Close
   Set fs = Nothing
End Sub
  仅供参靠