帮我看看这段代码那里有错误？？

dragonszr

我的目的是：如果cell.cel文件存在，则删除该文件，否则执行将cell.txt重命名为cell.cel.下面的代码，我是参照access的帮助文件写的，怎么老是出错，我不只是何处的问题，能帮我检查并说明一下么？？期待您的回复

Private Sub 命令0_Click()

Dim Fs, F, TS, G
      
    Set Fs = CreateObject("Scripting.FileSystemObject")
    Set F = Fs.FileExists(CurrentProject.Path & "\" & "cell.cel")
    Set G = Fs.DeleteFile(CurrentProject.Path & "\" & "cell.cel")
   
    If F Then g Else Name CurrentProject.Path & "\" & "cell.txt" As CurrentProject.Path & "\" & "cell.cel"
    End If
   
End Sub

zhuyiwen

Private Sub 命令0_Click()

    Dim OldFileName As String, FileName As String
      
    OldFileName = CurrentProject.Path & "\" & "cell.txt"
    FileName = CurrentProject.Path & "\" & "sell.cel"
   
    If Dir(FileName) <> "" Then
        ' 文件存在，删除
        Kill FileName
    Else
        ' 文件不存在，重命名
        Name OldFileName As FileName
    End If
   
End Sub

这样多好！这可是VBA自己的功能实现的，何必多一道手脚去创建什么对象。

zhuyiwen

更正：

FileName = CurrentProject.Path & "\" & "sell.cel"
==>
FileName = CurrentProject.Path & "\" & "cell.cel"

dragonszr

收到您的解答，谢谢