|
If FileSys.GetFiles("C:\Documents and Settings\Administrator\桌面\新建文件夹").Contains("C:\Documents and Settings\Administrator\桌面\新建文件夹\Northwind.mdb") Then
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "查找文件|Northwind.mdb" '设置筛选器
dlg.InitialDirectory = "C:\Documents and Settings\Administrator\桌面\新建文件夹"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End If
End If
|
加好友 
发短信
Post By：2014/4/15 16:03:00 [只看该作者]
