会python真的可以为所欲为0(回)
249天前
这里还有人吗1(回)
434天前这里还有人吗0(回)
434天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
659天前到处都是羊，不想上班0(回)
739天前
鸽子
0(回)
743天前Private Sub DeleteDir() '删除文件（夹）
If Dir("D:\a", vbDirectory) = "" Then exit sub '如果D盘中文件夹a不存在则退出
Kill "D:\a\*.*" '删除D盘中文件夹a下的所有文件
RmDir "D:\a" '删除D盘中文件夹a
End Sub
'Dir ([PathName],[Attributes as VbFileAttribute = vbNormal]) as String
'PathName:文件或文件夹的绝对路径。
'Attributes:文件的属性--默认值：vbNormal 是普通文件，vbHidden 是隐藏文件，vbDirectory是文件夹。
'"[]"内为可以选项。Dir(file)=""表示文件或文件夹不存，即文件或文件夹的实际路径文空。Dir(file)<>""表示文件或文件夹存在,即文件或文件夹实际路径不为空。
by: 发表于：2017-11-06 14:47:01 顶(0) | 踩(0) 回复
？？
回复评论