如何建立一个文件夹? mkdir;如何删除一个文件夹? rmdir如何判断是否存在某一个文件夹? Public Function PathExists(path$) As Boolean '判断一个文件夹是否存在的函数,存在返回真,不存在返回假 '参数: Path 待判断的文件夹路径 On Error GoTo handler If (GetAttr(path) And vbDirectory) = vbDirectory Then PathExists = True Else: PathExists = False End If Exit Function handler: PathExists = False End Function
//BlueBeer(1win)判断的方法没有问题,能够解释一下吗?if len(dir("c:\test",16)) then msgbox "存在"dir的参数“16”,即vbDirectory,表示前面的参数是一个文件夹的路径 如果找到,dir会返回一个字符串“test”,len是返回“test”的长度 如果没找到,dir返回空字符串“""”,len则会返回0 0即false,大于0(非0)即为true SO,如果dir返回的字符串长度不为0则说明文件夹存在
MkDir RmDir if dir(strpath)<>"" and len(strpath)>0 then msgbox "存在" end if
下面是MSDN对 dir 函数的描述: Dir 函数 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配语法Dir[(pathname[, attributes])]Dir 函数的语法具有以下几个部分:pathname 可选参数。用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到 pathname,则会返回零长度字符串 ("")。 attributes 可选参数。常数或数值表达式,其总和用来指定文件属性。如果省略,则会返回匹配 pathname 但不包含属性的文件。 attributes 参数的设置可为:常数 值 描述 vbNormal 0 (缺省) 指定没有属性的文件。 vbReadOnly 1 指定无属性的只读文件 vbHidden 2 指定无属性的隐藏文件 VbSystem 4 指定无属性的系统文件 vbVolume 8 指定卷标文件;如果指定了其它属性,则忽略vbVolume vbDirectory 16 指定无属性文件及其路径和文件夹。 Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。为选中文件夹中所有文件,指定一空串:Dir("")在第一次调用 Dir 函数时,必须指定 pathname,否则会产生错误。如果也指定了文件属性,那么就必须包括 pathname。Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名,再一次调用 Dir,且不要使用参数。如果已没有合乎条件的文件,则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串,并要再次调用 Dir 时,就必须指定 pathname,否则会产生错误。不必访问到所有匹配当前 pathname 的文件名,就可以改变到一个新的 pathname 上。但是,不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。
if Dir(FolderPath)="" then msgbox "对不起,文件夹不存在"
end if
RmDir 路径 删除
RmDir "C:\Documents and Settings\ywp\桌面\student\aa"
End
Err:
MsgBox "没有文件夹"
if Dir(FolderPath)="" then msgbox "对不起,文件夹不存在"
end if
好象不行吧
创建一个新的目录或文件夹。语法MkDir path必要的 path 参数是用来指定所要创建的目录或文件夹的字符串表达式。path 可以包含驱动器。如果没有指定驱动器,则 MkDir 会在当前驱动器上创建新的目录或文件夹。
MkDir 语句示例
本示例使用 MkDir 语句来创建目录或文件夹。如果没有指定驱动器,新目录或文件夹将会建在当前驱动器中。MkDir "MYDIR" ' 建立新的目录或文件夹。
If fDocument.FolderExists(strFilePath) = False Then
fDocument.CreateFolder (strFilePath)
End If
删除一个存在的目录或文件夹。语法RmDir path必要的 path 参数是一个字符串表达式,用来指定要删除的目录或文件夹。path 可以包含驱动器。如果没有指定驱动器,则 RmDir 会在当前驱动器上删除目录或文件夹。说明如果想要使用 RmDir 来删除一个含有文件的目录或文件夹,则会发生错误。在试图删除目录或文件夹之前,先使用 Kill 语句来删除所有文件。RmDir 语句示例
本示例使用 RmDir 语句删除已存在的目录或文件夹。' 假设 MYDIR 为一空的目录或文件夹。
RmDir "MYDIR" ' 将 MYDIR 删除。
mkdir;如何删除一个文件夹?
rmdir如何判断是否存在某一个文件夹?
Public Function PathExists(path$) As Boolean
'判断一个文件夹是否存在的函数,存在返回真,不存在返回假
'参数: Path 待判断的文件夹路径
On Error GoTo handler
If (GetAttr(path) And vbDirectory) = vbDirectory Then
PathExists = True
Else: PathExists = False
End If
Exit Function
handler:
PathExists = False
End Function
如果找到,dir会返回一个字符串“test”,len是返回“test”的长度
如果没找到,dir返回空字符串“""”,len则会返回0
0即false,大于0(非0)即为true
SO,如果dir返回的字符串长度不为0则说明文件夹存在
msgbox "存在"
end if
Dir 函数
返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配语法Dir[(pathname[, attributes])]Dir 函数的语法具有以下几个部分:pathname 可选参数。用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到 pathname,则会返回零长度字符串 ("")。
attributes 可选参数。常数或数值表达式,其总和用来指定文件属性。如果省略,则会返回匹配 pathname 但不包含属性的文件。
attributes 参数的设置可为:常数 值 描述
vbNormal 0 (缺省) 指定没有属性的文件。
vbReadOnly 1 指定无属性的只读文件
vbHidden 2 指定无属性的隐藏文件
VbSystem 4 指定无属性的系统文件
vbVolume 8 指定卷标文件;如果指定了其它属性,则忽略vbVolume
vbDirectory 16 指定无属性文件及其路径和文件夹。
Dir 支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。为选中文件夹中所有文件,指定一空串:Dir("")在第一次调用 Dir 函数时,必须指定 pathname,否则会产生错误。如果也指定了文件属性,那么就必须包括 pathname。Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名,再一次调用 Dir,且不要使用参数。如果已没有合乎条件的文件,则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串,并要再次调用 Dir 时,就必须指定 pathname,否则会产生错误。不必访问到所有匹配当前 pathname 的文件名,就可以改变到一个新的 pathname 上。但是,不能以递归方式来调用 Dir 函数。以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。