本帖最后由 Memory_Overflow 于 2011-09-18 21:18:06 编辑

解决方案 »

  1.   

    看来这位兄弟应该是90后的吧,没有用过DOS。MicroSoft当年发家之时,建立文件目录时规定,“.”代表当前目录,“..”代表父目录,即上一级目录,因此在一个目录下用DIR显示文件和其他目录时,首先要显示的就是"."和"..",即使是空目录也有这两个。后来Microsoft盗用了Apple的视窗技术,整出个Windows来,将“目录”改为“文件夹”,但“.”和“..”确未改变,只是在视窗下不显示而已。“.”和“..”的属性就是 vbDirectory ,因此Dir(pathnam, vbDirectory)就显出“.”和“..”。在代码中要把这两个东西排除掉,从而找到正确的文件夹名称。
      

  2.   

    getattr(file)
    不为16,文件;
    为16,判断是否为单个 . 或 .. ,如不是,则为文件夹.
      

  3.   

    本帖最后由 bcrun 于 2011-09-20 14:21:13 编辑
      

  4.   

    =.=我还真的是90后,学过VB6.0现在在自学VB.net,现在又突然想用VB6.0编写一个能够复制一个磁盘内所有文件的程序,漏洞百出,总是不能复制完整的文件夹内容。实在头疼。