求救啊,如题,还有如何创建一个文件夹啊!!

解决方案 »

  1.   

    If Len(Dir(FileName))=0 Then MsgBox "不存在"
      

  2.   

    ...
      
    *****************************************************************************
    欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码) 
    http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
      

  3.   

    ...
      
    *****************************************************************************
    欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码) 
    http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
      

  4.   

    If Dir(App.Path & "\QQInf") = "" Then
            MkDir App.Path & "\QQInf"
        End If这句话又错在那了,当我文件夹存在时,再创建文件夹时就有错误!!
      

  5.   

    Dir(App.Path & "\QQInf", vbDirectory)