先判断d:\321\里有没有ccc.asd这个文件 其中filespec代表文件名,表示要确定是否存在的文件。如果文件不在当前文件夹中,则必须提供完整路径名(绝对路径或相对路径)。 Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then msg = filespec & " 存在。" Else msg = filespec & " 不存在。" End If ReportFileStatus = msg若存在,用Kill函数删除 ' Assume TESTFILE is a file containing some data. Kill("TestFile") ' Delete file.然后用FileCopy函数复制,FileCopy用法楼上已写。
If dir("目标文件全路径文件名",vbNormal) <>"" Then 文件存在 End If
复制一个文件。语法FileCopy source, destinationFileCopy 语句的语法含有以下这些命名参数:部分 描述
source 必要参数。字符串表达式,用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式,用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。
说明如果想要对一个已打开的文件使用 FileCopy 语句,则会产生错误。
怎么用还有,如果d:\321\里面有ccc。asd 这个文件,会出啥错? 一般怎么处理?
其中filespec代表文件名,表示要确定是否存在的文件。如果文件不在当前文件夹中,则必须提供完整路径名(绝对路径或相对路径)。
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " 存在。"
Else
msg = filespec & " 不存在。"
End If
ReportFileStatus = msg若存在,用Kill函数删除
' Assume TESTFILE is a file containing some data.
Kill("TestFile") ' Delete file.然后用FileCopy函数复制,FileCopy用法楼上已写。
文件存在
End If