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

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

sp; 浏览文件夹中图片(用VB实现) 首先要新建个工程,在Form1中添加dirlistboxControl控件,drivelistboxControl控件,filelistboxControl控件,comboboxControl控件textboxControl控件vs... [阅读全文]

sp; 用createdirectory创建文件夹。（原创）Private Sub Command1_Click() Private Declare Function CreateDirectory Lib \"kernel32\" Alias \"CreateDirectoryA\" (ByVal lpPathName As String, lpSecurityAttributes As SEC... [阅读全文]

sp;抛弃Windows的默认图标吧，让自己的程序所在的目录拥有个性化的Folder Icon！其实作起来简单得很，实际上只需要一个Desktop.ini文件即可，下面我会从两个方面说明。1. 手动方式：首先要在需要改变的文件夹中创建一个Desktop.ini文件，例子如下[.ShellClassInfo]ConfirmFileOp=0InfoTip=我自己的文件夹IconIndex=0IconF... [阅读全文]

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

FunctionGetFileList(ByValPathAsString,ByRefFileName()AsString,OptionalfExpAsString=\"*.*\")AsBoolean DimfNameAsString,iAsLong IfRight$(Path,1)\"\"ThenPath=Path&\"\" fName=Dir$(Path&fExp) i=0 DoWhilefN... [阅读全文]

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