如果C:\1.TXT这个文件不存在,那么就执行下一条命令,如果存在就不执行下一条命令。请问该如何编写。谢谢大家对我的关照!
解决方案 »
- 求有关水晶报表11的使用资料。
- 请问Winters_lee(其实我真的叫迪米亚路)
- ********好久没来了,问几个问题*******
- 如果得到系统设置的值?
- 江西的老乡,帮帮忙吧
- 如何使用EXCEL VBA导入大量文件(*.csv), 同时根据文件命分别将数据导入到不同的sheet中
- 在一个表中,主键不是递增的,请问知道一条记录的编号,怎样写SQL 语句,得到它的上一条记录和下一条记录?
- 如何在VB中调用拨号网络程序?
- 怎样在toolbar上的按钮设置快捷键?
- 谈谈局域网对程序运行的影响?
- 一表,新建一字段,若前一字段数值大于5,则新字段数值为正,小于等于5为负?怎么写?
- inet 该如何退出程序窗口关了进程还在
在VB中编程中,经常需要判断一个文件是否存在,以便执行相应的操作,这可用下列语句进行判断
Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String
解释: pathname:文件的绝对路径;
Attributes:文件的属性。
“[]”内为可选项。dir(file)=""表示文件不存在,dir(file)<>""表示文件存在。
1.例如判断c:\6331905.exe是否存在,如存在,就调用它,可用下列语句:
if dir("c:\6331905.exe")<>"" then
shell "c:\6331905.exe"
end if2.但如果判断的文件是隐藏文件,上面的语句则无法判断出来,这时就需要加上后面的可选项目,例如
判断C盘根目录下是否有隐藏文件6331905.exe,就用下面的源代码:
if dir("c:\6331905.exe,vbhidden")<>"" then
msgbox"发现 c:\6331905.exe"
end if
3.判断文件夹是否存在,可用下列语句:
Private Sub Command1_Click()
If Dir("c:\6331905", vbDirectory) <> "" Then '如果c:\6331905文件夹存在
MsgBox "文件夹:c:\6331905 存在!" '提示
Else '否则
MkDir "c:\6331905" '创建c:\6331905文件夹
'如果是缺省路径,如:mkdir "6331905",在当前目录下创建一个文件夹,名为6331905
End If
End Sub(网上找的)
If Dir("c:\陈光教授简介.doc") <> "" Then
Debug.Print "文件存在!"
Else
Debug.Print "文件不存在!"
End If
End Sub
Public Function FileExist(vFile As String) As Boolean
On Error Resume Next
FileExist = False
If Dir$(vFile) <> "" Then: FileExist = True
End Function
If Dir("C:\1.TXT")="" Then
'//添加所要执行的语句
End If