VBS肿么获取某目录下的文件列表 dim FileName,fs,foldername foldername = InputBox("请输入想要在哪个文件夹查找", "VBS查找文件") If foldername = "" (查看全文)

代码没有问题，总是报这样的错误。 测试代码 msgbox "脚本之家" 很简单的代码，但如果编码不对问题就很多 中文乱码问题 运行图 因 (查看全文)

方法一：Wscript.ScriptFullName '创建一个 Wscript.Shell 对象的实例,稍后会使用这个对象启动 Windows 资源管理器 Set objShell = CreateObject("Wscrip (查看全文)

核心vbs代码 '变量定义 Dim writeName,writeValue,fileName,regLoaction,regApp '创建注册表编辑器对象 Set regApp=WScript.CreateObject (查看全文)

下面两段原理都是一样的，大家可以看下 代码一 If wscript.Arguments.count=0 then msgbox "拖拽文件到本vbs文件",0,"提示" End if for jb=0 to ws (查看全文)

核心代码 '****************************************** '拖拽文件，获取文件路径 '****************************************** If wsc (查看全文)

因为系统组件差异，所以代码也有不同文章最后脚本之家给出一个通用的代码 XP下： Function BrowseForFile( ) ' Select File dialog based on a script by Maya (查看全文)

vbs核心代码 Option Explicit Dim objWMIService,colProcessList,strComputer strComputer = "." Set objWMIService = GetOb (查看全文)

源码如下： Function listFilesPath(filepath) t1=Timer() Debug.WriteLine "****现在开始执行计数，用时："+CStr(t1) Set fso=Crea (查看全文)

vbs调用插件报：ActiveX部件不能创建对象，代码：800A01AD 报错如下图： 解决方法需要两步： 第一步改注册表： HKEY_CLASSES_ROOT\VBSFile\Shell\Open (查看全文)