[问题求助] 【已解决】VBS如何判断指定文件夹是否存在，不存在则创建该文件夹

tangqingfu

fso.createfolder("D:\dotPath")表示创建文件夹
请教添加判断的情况？即如果如果指定路径下没有该文件夹，则创建名为“dotPath”的文件夹，如果有，则无需创建的代码该如何编写？

tangqingfu

回复 2# wankoilz
小弟愚钝，没试成功！
能否请wankoilz兄帮修改一下代码？为创建文件夹添加判断 :如果如果指定路径下没有该文件夹，则创建名为“dotPath”的文件夹，如果有，则无需创建

'//VBS复制U盘Doc文件 @CODE BY Broly
'//声明：此VBS由Broly制作,代码仅作学习研究之用。使用前请三思而行，产生不良后果均与本人无关！
Const DocPath="D:\DotPath\" '此处为你放DOT文件的文件夹，运行前请创建好
Dim fso,Disks 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set Disks = fso.Drives 
For Each Disk In Disks 
  If Disk.IsReady And Disk.DriveType = 1 Then 
    Udisk=Disk.DriveLetter & ":\"
    U=True
  End if
Next
If U=True Then
  CopyDocs(Udisk)
Else
  Msgbox "没有发现U盘或者U盘没有插好!",vbOkOnly,"提示"
  WScript.Quit
End If
WScript.Quit

Sub CopyDocs(path)
  Dim folder,subfolders,Files
  Set folder = fso.getfolder(path)
  Set subfolders = folder.subfolders
  Set Files = folder.Files
  For Each File In Files
    If fso.GetExtensionName(File.path)="dot" Then
      fso.CopyFile File.Path,DotPath,True '设置为True，表示如果文件存在则覆盖
    End if
  Next
  For Each subfolder In subfolders
      CopyDocs(subfolder.path) '递归查找子目录
  Next
End Sub
复制代码

tangqingfu

期待各位帮解决3楼的问题……

tangqingfu

回复 5# wankoilz
谢谢兄台的指点！
能否请兄台为创建文件夹添加判断 :如果如果指定路径下没有该文件夹，则创建名为“dotPath”的文件夹，如果有，则无需创建

tangqingfu

回复 7# czjt1234
您再运行一次试试，会提示“错误： 文件已存在”。说明没在为创建文件夹加入判断，期待您的解决……

tangqingfu

回复 9# wankoilz

测试通过！谢谢楼上两位！的确是要复制.dot

tangqingfu

回复 13# kqbt
是的，很高兴在这里遇见卡卡兄！bat知识知之甚少，所有度一个金，呵呵！