请问:如何建立一个文件夹?如何删除一个文件夹?如何判断是否存在某一个文件夹?

解决方案 »

  1.   

    1。是用fso2。
    if Dir(FolderPath)="" then  msgbox "对不起,文件夹不存在"
    end if
      

  2.   

    MkDir 路径 建立
     RmDir 路径 删除
      

  3.   

    On Error GoTo Err
     RmDir "C:\Documents and Settings\ywp\桌面\student\aa"
     End
    Err:
     MsgBox "没有文件夹"
      

  4.   

    xmduane([阿菜]) 
    if Dir(FolderPath)="" then  msgbox "对不起,文件夹不存在"
    end if
    好象不行吧
      

  5.   

    MkDir 语句
          创建一个新的目录或文件夹。语法MkDir path必要的 path 参数是用来指定所要创建的目录或文件夹的字符串表达式。path 可以包含驱动器。如果没有指定驱动器,则 MkDir 会在当前驱动器上创建新的目录或文件夹。
    MkDir 语句示例
    本示例使用 MkDir 语句来创建目录或文件夹。如果没有指定驱动器,新目录或文件夹将会建在当前驱动器中。MkDir "MYDIR"   ' 建立新的目录或文件夹。
      

  6.   

    Dim fDocument As New FileSystemObject
    If fDocument.FolderExists(strFilePath) = False Then
        fDocument.CreateFolder (strFilePath)
    End If
      

  7.   

    RmDir 语句
          删除一个存在的目录或文件夹。语法RmDir path必要的 path 参数是一个字符串表达式,用来指定要删除的目录或文件夹。path 可以包含驱动器。如果没有指定驱动器,则 RmDir 会在当前驱动器上删除目录或文件夹。说明如果想要使用 RmDir 来删除一个含有文件的目录或文件夹,则会发生错误。在试图删除目录或文件夹之前,先使用 Kill 语句来删除所有文件。RmDir 语句示例
    本示例使用 RmDir 语句删除已存在的目录或文件夹。' 假设 MYDIR 为一空的目录或文件夹。
    RmDir "MYDIR"   ' 将 MYDIR 删除。
      

  8.   

    //如何判断是否存在某一个文件夹?if len(dir("c:\test",16)) then msgbox "存在"
      

  9.   

    创建和删除没有问题。JoAiron(一起分享)判断的方法不行。BlueBeer(1win)判断的方法没有问题,能够解释一下吗?
      

  10.   

    如何建立一个文件夹?
    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
      

  11.   

    //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则说明文件夹存在
      

  12.   

    MkDir RmDir    if dir(strpath)<>"" and len(strpath)>0 then
            msgbox "存在"
        end if
      

  13.   

    下面是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 不能连续地返回子目录。