FileCopy Text3 & Text4 & ".jpg", Text2 & Text4 & ".jpg"
如果此文件存在则执行下去
如果此文件不存在,则弹出窗口 此文件不存在
求个完整代码,我不会怎么写msgbox,呜呜呜
是VB6版本吗?建议下载对应版本的msdn帮助,对于初学者帮助非常大。
可以用fso对象检查文件是否存在,或者用简单的DIR函数:
'复制前检查文件,注意myfile=""时,即长度为0时 if语句仍会执行删除命令If Len(Dir(myfile)) Then Kill myfile
FileCopy Text1.txt & ".jpg", myfile
-------------分隔符-------------
FileCopy 语句
复制一个文件。
语法
FileCopy source, destination
FileCopy 语句的语法含有以下这些命名参数:
部分 描述
source 必要参数。字符串表达式,用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式,用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。
说明
如果想要对一个已打开的文件使用 FileCopy 语句,则会产生错误。
------------------ 分割线 --------------------
MsgBox函数
描述
在对话框中显示消息,等待用户单击按钮,并返回一个值指示用户单击的按钮。
语法
MsgBox(prompt[, buttons][, title][, helpfile, context])
参数 描述
prompt
作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符,这取决于所使用的字符的宽度。如果 prompt 中包含多个行,则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。
buttons
数值表达式,是表示指定显示按钮的数目和类型、使用的图标样式,默认按钮的标识以及消息框样式的数值的总和。有关数值,请参阅“设置”部分。如果省略,则 buttons 的默认值为 0。
title
显示在对话框标题栏中的字符串表达式。如果省略 title,则将应用程序的名称显示在标题栏中。
helpfile
字符串表达式,用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile,则必须提供 context。在 16 位系统平台上不可用。
context
数值表达式,用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context,则必须提供 helpfile。在 16 位系统平台上不可用。
buttons 参数可以有以下值:(写代码时会自动提示,这里忽略)
下面的示例利用MsgBox 函数显示一信息框并且返回值说明了按下的是那一个按钮:
Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox 例子")
另外在编程环境按下F2键搜索msgbox你也会得到帮助。
示例使用 FileCopy 函数将一个文件复制为另一个文件。出于此示例的目的,假定 SrcFile 是包含一些数据的文件。
Dim SourceFile, DestinationFile As String
Dim flag as Boolean
SourceFile = "c://Check.txt" ' Define source file name.
DestinationFile = "d:\\dist" ' Define target file name.
在copy之前检测SourceFile是否存的方法:
If My.Computer.FileSystem.FileExists("c://Check.txt") Then
MsgBox("File found.")
flag = true
Else
MsgBox("File not found.")
End If
如果存在才开始调用fileCopy进行拷贝:
if flag=true then
FileCopy(SourceFile, DestinationFile) ' Copy source to target.
else
msgbox("error!")
If Dir(Text3 & Text4 & ".jpg") Then
FileCopy Text3 & Text4 & ".jpg", Text2 & Text4 & ".jpg"
Else
MsgBox "该文件不存在!"
End If追问
他说内容不匹配,呜呜呜
追答哪一句有错?
在第一句加中断(按F9),运行后在立即窗口(Ctrl+G)键入:
?Text3 & Text4 & ".jpg"
回车检查文件名是否正确,这个文件名应该包含完整的路径