论坛 › 已解决问题区 › 【已解决】如何判断硬盘根目录下是否有文件夹

dnvplj 发表于 2014-6-7 11:45:49

【已解决】如何判断硬盘根目录下是否有文件夹

本帖最后由 dnvplj 于 2014-6-8 08:51 编辑

请问各位朋友：
如何判断“硬盘”根目录下是否有1WYG、2SOFT、3SOFT这3个文件夹 ，有就直接删除，不要提示。

joyran 发表于 2014-6-7 21:33:30

If FileExists("C:\OpenLDAP\ldifdata\dc=aspa,dc=int,dc=tenneco,dc=com\ou=" & $site & "\") Then
                DirRemove("C:\OpenLDAP\ldifdata\dc=aspa,dc=int,dc=tenneco,dc=com\ou="& $site & "\",1)
                ShellExecute("slapadd.exe", "-v -l " & $ldif_path & $site & ".ldif", "C:\OpenLDAP\")
        Else
                ShellExecute("slapadd.exe", "-v -l " & $ldif_path & $site & ".ldif", "C:\OpenLDAP\")
        EndIf

dnvplj 发表于 2014-6-7 21:56:48

2楼的朋友，感谢你的回复，我要的是全盘找这3个文件夹，并删除。

fuldho 发表于 2014-6-8 06:41:38

回复 3# dnvplj


    Dim $Dr
$Drive = DriveGetDrive("FIXED")
For $i = 1 To $Drive
        $Dr = StringUpper($Drive[$i])
If FileExists($Dr&"\1WYG") Then DirRemove($Dr&"\1WYG",1)
If FileExists($Dr&"\2SOFT") Then DirRemove($Dr&"\2SOFT",1)
If FileExists($Dr&"\3SOFT") Then DirRemove($Dr&"\3SOFT",1)
Next

dnvplj 发表于 2014-6-8 08:50:20

RE: 如何判断硬盘根目录下是否有文件夹

谢谢3楼朋友的回复，问题解决了。

yinbinly 发表于 2014-6-9 11:45:02

既然要删除还判断干嘛 直接 DirRemove 效率不是更高吗

ak47gglllk 发表于 2014-10-16 11:28:54

感谢，感谢，学习了，非常感谢

今夜风真冷 发表于 2014-10-24 10:05:03

菜鸟等级，求包养啊。{:face (411):}

查看完整版本: 【已解决】如何判断硬盘根目录下是否有文件夹