www.1862.net > 如何用vB判断文件夹是否存在

如何用vB判断文件夹是否存在

这可用下列语句进行判断 Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String 解释: pathname:文件的绝对路径; Attributes:文件的属性。 “[]”内为可选项。dir(file)=""表示文件不存在,dir(file)""表示文件存在。 例如判断c...

1、vb使用dir函数来查找文件或文件夹。 2、Dir 函数: 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 语法:Dir[(pathname[, attributes])] 3、Dir 会返回匹配 pathname 的第一...

VB2005 If My.Computer.FileSystem.DirectoryExists("c:\123") Then MsgBox("文件夹存在") Else MsgBox("文件夹不存在") End If VB6 If Dir("c:\123",vbDirectory) = "" Then MsgBox("文件夹不存在") Else MsgBox("文件夹存在") End If

VB使用Dir函数判断制定文职是否存在指定文件。 Dir 函数 ,返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 Dir 函数示例 本示例使用 Dir 函数来检查某些文件或目录是否存在。在 M...

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写上你自己的文件位置即可。

If Dir("d:\2010011", vbDirectory) "" Then MsgBox "存在" Else MsgBox "不存在" End If

Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (By...

Option Explicit Private Sub Command1_Click() If Dir("C:\WINDOWS\system32\roect", vbDirectory) "" Then MsgBox "文件夹:C:\WINDOWS\system32\roect 存在!" Else MkDir "C:\WINDOWS\system32\roect" End If End Sub 用VB6.0测试过了没问题

比如说要想知道d:\abc这个文件夹是否存在,可以这样: If Dir("d:\abc\nul")"" Then MsgBox "文件夹存在!" Else MsgBox "文件夹不存在!" End If

网站地图

All rights reserved Powered by www.1862.net

copyright ©right 2010-2021。
www.1862.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com