我试图归档日志以捕获间歇性故障，在该间歇性故障中，我的日志被定期覆盖。我希望将日志存档，以确保捕获所需的事件。
我已经写了执行该功能的函数代码，但是，如果文件夹很大，则zip失败。如果我将其指向一个较小的目录，它将正常工作。不会产生任何错误，对于确定原因，我们将不胜感激。
由于我以前从未在VBS中进行编程，因此如果这是一个简单的问题，我会提前道歉。
Option Explicit
dim objFSO, objFolder, FolderToZip, ziptoFile
dim ShellApp, eFile, oNewZip, strZipHeader
dim ZipName, Folder, i, Zip
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\Program Files\afolder")
Wscript.Sleep 2000
Set oNewZip = objFSO.OpenTextFile("C:\Archive\logs_" & day(date) & month(Date) & Year(date)& ".zip", 8, True)
strZipHeader = "PK" & Chr(5) & Chr(6)
For i = 0 to 17
strZipHeader = strZipHeader & Chr(0)
Next
oNewZip.Write strZipHeader
oNewZip.Close
Set oNewZip = Nothing
WScript.Sleep 5000
FolderToZip = "D:\Program Files\afolder"
ZipToFile = "C:\Archive\logs_" & …好的,所以我打算制作一个简洁的程序,使你的数字锁定,大写锁定和滚动锁定键闪烁.我的问题是当我运行它时,它只生成一个数字,而不是多个不同的数字,任何关于问题可能是什么的想法？
Set Keys = WScript.CreateObject("WScript.Shell") 'So The Script Can Press keys
Dim MAX, MIN 'Declaration
MAX = 2 'Sets MAX Equal To 2
MIN = 0 'Sets MIN Equal To 0
Randomize 'So The Numbers Are Different All The Time
Number = (Int((MAX-MIN+1)*Rnd+MIN)) 'Assigns The Random number To A Variable
Do Until X = 10 'Does The Loop 10 Times
Select Case Number
Case 0 'If Number = 0 Then The Following happens
WScript.Sleep 500 'Stops The Script For 500 …这很奇怪:当textFile是硬编码时,双击[输出(拆分)弧文件]运行时脚本运行正常.将文件拖放到脚本上时,没有错误,也没有输出文件.使用拖放时脚本肯定会运行,我在writeTo之前的行中添加了一个简单的消息框,以确认它确实达到了这一点.拖放时没有文件输出,只有当textFile被硬编码时才能正常工作.有人请帮忙!
if WScript.Arguments.Count <> 0 then
textFile = WScript.Arguments(0)
else
textFile = "multi2.txt"
end if
saveTo = ""
writeTo = ""
strNewLine = "%_N_"
headingPattern = "(%_N_)"
dim fileFrom, regex, fileTo
Set fso = CreateObject("Scripting.FileSystemObject")
set fileFrom = fso.OpenTextFile(textFile)
set regex = new RegExp
set fileTo = nothing
with regex
.Pattern = headingPattern
.IgnoreCase = false
.Global = true
end with
while fileFrom.AtEndOfStream <> true
line = fileFrom.ReadLine
set matches = regex.Execute(line)
if matches.Count > 0 then
strCheckForString = UCase("%") …执行这两行批处理文件代码时,我没有看到任何区别
Wscript Test.vbs
Wscript //Nologo Test.vbs
徽标位于哪里？
我写了一个简单的hello world程序
<html>
<body>
<script type="text/vbscript">
document.write("Hello World")
</script>
</body>
</html>
保存为hello.vbs.我尝试在cmd中运行并双击它.但我得到上面的编译错误
我正在尝试拆分文件的输出,并根据文件中的内容命名它们.示例输入文件:
NMAP for 192.168.1.1
blah 1.1.1.1
blah blah
blah
NMAP for 192.168.1.2
blah 2.2.2.2
blah blah
blah
etc...
我想把它分成单独的文件
File1: 192.168.1.1.txt
NMAP for 192.168.1.1
blah 1.1.1.1
blah blah
blah
File2: 192.168.1.2.txt
NMAP for 192.168.1.2
blah 2.2.2.2
blah blah
blah
文件等..
我看到我可以用AWK做到这一点,但是我无法在所有工作站上安装unix utils,所以我想在像PowerShell或VBS或命令行这样的Windows 7企业中包含这些内容.
谢谢!
我尝试在UFT中创建对象:
Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\1.xls")
Set xlSheet = xlBook.Sheets(1)
创建失败,语法错误
The test run cannot continue due to a syntax error.
Syntax error
Line (242): Set xlApp = CreateObject("Excel.Application")
有人知道怎么修理吗？谢谢您的帮助
我注意到当我使用"&"字符配置XML文件值时,XML文件无法正确打开
我想这是因为XML文件值不应该有一些字符作为&
并且"&"不应在XML文件中设置为值
如果有更多字符不应在XML中设置为值,请提供建议吗？(或者也许&字符是唯一的??)
来自XML"&"的错误值的示例
<FolderPath>\EEA\E1\C & W 100\AWQ</FolderPath>
来自XML的右行示例
<FolderPath>\EEA\E1\C and W 100\AWQ</FolderPath>
我有这个脚本:
Set WshShell = CreateObject("WScript.Shell")
dim a
a = "C:\Program Files (x86)\MyProgram\MyApplication.jar"
WshShell.Run "javaw -jar " & a
但是当我执行时,我收到错误消息:"错误:无法访问jarfile:C:\ Program"
问题是......我的程序路径包含空格.如何解决这个问题？