OptionExplicit 　　PrivateSubCommand1_Click　　DimstrPathNameAsString　　strPathName=\"\"　　strPathName=InputBox(\"请输入需要删除文件夹名称∶\",\"删除文件夹\")　　IfstrPathN... [阅读全文]

ute;独立模块中输入Option Explicit´ 共享信息Public Const NERR_NoWorkstation = 2102 ´ 工作站驱动器未被安装.Public Const NERR_UnknownServer = 2103 ´ 机器名... [阅读全文]

’首先要[工程]－[引用]MicrosoftScripttingRuntime PrivateSubCommand1_Click() DimfsoAsNewFileSystemObject Iffso.FolderExists(\"c:abc\")Then MsgBox(\"文件夹已存在\") Else fso.CreateFolder(\"c:abc\") EndIf E... [阅读全文]

option explicit 　　private sub command1_click 　　dim strpathname as 　　strpathname = \"\" 　　strpathname = inputbox(\"请输入需要删除文件夹名称∶\", \"删除文件夹\") 　　 ... [阅读全文]