Question

vb判断文件夹是否存在

vb判断文件夹是否存在，如果存在就退出，不存在就执行同目录下的1.exe
代码怎么写
判断C:\Program Files\VIEWGOOD这个文件夹是否存在，如存在程序退出，不存在就执行1.EXE
这个1.EXE是我做好的RAR自解压文件。谢谢

Answer 1

Private Sub Form_Load()

If Dir("C:\Program Files\VIEWGOOD", vbDirectory) <> "" Then

'MsgBox "存在"
End

Else
'MsgBox "不存在"
Shell "1.EXE", 1
End If

End Sub

1.EXE写上你自己的文件位置即可。

Answer 2

If Dir("C:\Program Files\VIEWGOOD") = True Then
'文件存在啊 写入存在所要执行的代码
Else
'文件不存在，写入不存在要执行的代码
End If
End Sub