vb 判断文件夹是否存在的问题

来源：百度知道 编辑：UC知道 时间：2024/06/30 15:08:42
一个Command 一个textbox 一个imag
在textbox输入图片文件路径
按下按钮判断textbox输入的文件是否存在
如果存在就在imag控件中显示图片
如果不存在就提示无此文件

3个控件，名称分别为Command1,Text1,Image1
Private Sub Command1_Click()
Dim Img As String
Img = Trim(Text1.Text)
If Dir(Img) <> "" Then
Image1.Picture = LoadPicture(Img)
Else
MsgBox "图片不存在 " & Img
End If
End Sub

dir函数就可以了，用dir的选项就可以查询文件夹或文件是否存在，具体用法你上百度搜索下就OK。

if dir(路经)<>""then msgbox"以存在" else msgbox"没找到" end 我用手机打的不放便，但这代码是一个例子，改一下