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

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[0]
$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

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

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

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

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

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

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

菜鸟等级，求包养啊。

		自动登录	找回密码
密码			加入

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

相关帖子

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