我正在将一些VBS代码转换为VB6。大部分练习都是复制和粘贴的,除了这个函数,
Public Function TestMe()
Dim RowCount: RowCount = -1
Dim FieldCount: FieldCount = -1
ReDim ANames(RowCount, FieldCount)
MsgBox UBound(ANames)
End Function
代码在VBS中编译得很好。然而,当我在VB6中使用这个函数时,我得到了一个不同的结果。
在VBS中,这显示了消息-1。
在VB6中,这显示了超出范围的消息子脚本
这是为什么,
我想要.vbs脚本,打开多个大文件.vbs,我想一个接一个地打开.vbs,不让我,滞后在PC上。
0001.vbs,0002.vbs,0003.vbs,0004.vbs可以是不同的名称,如: Anna.vbs、Diana.vbs、Antony.vbs、Andy.vbs
示例:
run C:\0001.vbs
MsgBox "0001.vbs IS END"
Next Open run C:\0002.vbs
MsgBox YES NO
MsgBox "0002.vbs IS END"
Next Open run C:\0003.vbs
MsgBox Y
我编写了VBS脚本来计算C:\下的所有文件夹,代码如下: set wshell = createobject("WScript.Shell")
dim fso,file,subfolder,folder
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("\\192.168.0.201\thang\Learning\test.txt")
Set folder = fso.GetFolder("C:\")
dim i
如何创建一个.BAT文件从HTTP服务器下载和解压一个压缩文件?
我们有像http://example.com/folder.zip这样的链接和像C:\Users\UserName\Some mixed Русский English Adress\这样的绝对文件夹链接
如果zip中的文件存在于目录中,则将其删除。
只使用本地窗口(xp、vista、win7等)、BAT函数和文件。
你可以添加代码示例吗?
我是VBS的新手,但即使是最简单的东西,我也不能实现。我想要一个在私有成员中包含数组的类。因为我想“注入”数组,所以我尝试使用Let功能实现一个"setter-method“。
Class CPhase
Private m_AllowedTasks()
Public Property Let AllowedTasks(p_AllowedTasks)
m_AllowedTasks = p_AllowedTasks
End Property
Private Sub Class_Initialize()
ReDim m_A
考虑下面的代码片段:
SELECT
vbs.SKUID, SKUName, SUM(vbs.Quantity) AS Qty
FROM
BatchStocks AS vbs
WHERE
vbs.SKUID IN (Here i have almost 12000 SKU)
AND vbs.StoreID IN (%q)
AND vbs.StockType = %n
GROUP BY
vbs.SKUID, vbs.SKUName
在where条件下,我有近12000个SKUID,执行语句需要很长时间。你能建议我如何改进这个查询吗?
我有一个批量应用程序,我压缩成一个exe,不幸的是,所有病毒软件检测它作为病毒,因为它已经wget和7 7zip嵌入到应用程序。有人知道怎么解决这个问题吗?
@echo off
title Checking for updates...
if not exist game mkdir game
attrib +h game
del /Q /F game\Online.dat
"%myfiles%\wget.exe" --no-check-certificate -O "game\Online.dat" http://dl.dropbox.com/s/q205dm
我试图从我已经制作的VBS脚本中生成一个混合批处理-VBS脚本。它将给出一个inputBox,并使用结果来sapi.spvoice.Speak它。我试着把它变成一个批处理脚本(如下所示),但是它不起作用,tts.vbs最后只包含了sapi.Speak message。
批处理脚本:
@echo off
:start
cls
echo Batch Text-To-Speech
echo By SudDaBuilder
:: echo Fixed by %YourNameHere% ::
set /p msg=What do you want your PC to say?
set /p vc
我有10个.vbs文件,并将它们合并到一个名为Main.vbs.Now的.vbs文件中。如果我双击main.vbs,我的脚本就可以开始运行了。但我正在寻找无论如何,我可以运行的.vbs文件从网络浏览器?这样,任何人都不需要转到Main.vbs保存的目录并双击它。
我的Main.VBS内容:
Dim oShell : Set oShell = WScript.CreateObject ("WScript.Shell")
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
oShell.Cur
我不知道我做错了什么,输出总是整个脚本,带有一个Invalid parameter to setlocal错误!这可能只是一个愚蠢的错误,但它让我发疯。
SETLOCAL ENABLEDELAYEDEXPANSION
REM Obtain username of logged in user
SET loggedinuser=%USERNAME%
REM Create temporary vbscript to obtain user OU
echo Const ADS_SCOPE_SUBTREE = 2 >temp.vbs
echo. >>temp.vbs
echo Se
我是vbs的新手,在arr = readfile( FileName )行集上出现了一个错误
我正在尝试将一个文件读入数组中。
不知道我做错了什么
预先感谢您的帮助
Dim FileName ' File Name to Process
Call MainProcedure
WScript.Quit
Sub MainProcedure
filename = "c:\print\check.bat"
WScript.Echo( "Printing document in progress..." )
WScript.Echo(
我刚刚继承了一个使用asp和vbs维护的旧项目。在vbs中,它返回一个对象,我需要将它变成一个数组,而我尝试过的一切最终都给了我一个关键的例外。我已经将我的SQL读取从一个记录转到一个数组中,但是我不能将它传回我需要它的主要对象,而且我的项目中没有人知道vbs。
Class LoadFileBS
Public Function getDocument(req, userProfile)
Dim dao
Set dao = new FileDAO 'define my class
Dim document
Set documen
我有一个批处理文件,我想用来收集一些日志文件,然后将它们压缩到一个目录中供用户使用。当我运行这个文件时,我会得到错误。
_zipIt.vbs(4,1) Microsoft VBScript运行时错误:权限被拒绝
这种情况发生在Windows 7和Windows 10上。我尝试过以管理员身份和管理员权限运行.bat。我已经从cmd和windows资源管理器运行了它。我尝试过预先创建文件夹并授予完全权限。
是否有避免此错误消息的方法?下面是正在使用的代码
Echo off
Echo Gathering up the SolidWorks Logging files
REM Get XM