If statement If-Then语句从不执行（VBScript）_If Statement_Vbscript_Hta

If statement If-Then语句从不执行（VBScript）

if-statement vbscript

If statement If-Then语句从不执行（VBScript）,if-statement,vbscript,hta,If Statement,Vbscript,Hta,几周前，我开始自己学习HTA和VBScript，开始了这个工作程序。我还是个新手，如果这是个愚蠢的问题，请原谅我。我已经搜索了两个小时，要么我不称职，要么我不知道如何搜索这个问题我需要这个脚本来检查三个文件；如果三个都存在，脚本将继续，如果缺少一个，则会弹出一个对话框，告诉用户缺少哪一个。我看过50种不同的方法，但没有一种适合我。下面的方法是唯一一个不返回任何错误的方法，问题是它根本不做任何事情，它只是一个空白窗口。（我只是先检查一个文件来测试） '调整窗口大小并使其居中 ' =======

几周前，我开始自己学习HTA和VBScript，开始了这个工作程序。我还是个新手，如果这是个愚蠢的问题，请原谅我。我已经搜索了两个小时，要么我不称职，要么我不知道如何搜索这个问题

我需要这个脚本来检查三个文件；如果三个都存在，脚本将继续，如果缺少一个，则会弹出一个对话框，告诉用户缺少哪一个。我看过50种不同的方法，但没有一种适合我。下面的方法是唯一一个不返回任何错误的方法，问题是它根本不做任何事情，它只是一个空白窗口。（我只是先检查一个文件来测试）


'调整窗口大小并使其居中
' ==========================================================
亚多里斯
window.resizeTo 350250
screenWidth=Document.ParentWindow.Screen.AvailWidth
屏幕高度=Document.ParentWindow.Screen.AvailHeight
posLeft=（屏幕宽度-350）/2
posTop=（屏幕高度-250）/2
window.movetoposleft，posTop
端接头
DoResize（）
试验
文本区{
溢出：隐藏；
颜色：#ffffff；
边界：无；
背景色：透明；
}
选项显式
次级支票
'创建对象
' ==========================================================
昏暗的地狱
尺寸objFSO，输出文件
模糊文件系统
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置filesys=CreateObject（“Scripting.FileSystemObject”）
Set of so=CreateObject（“Scripting.FileSystemObject”）
' ==========================================================
如果oFile=oFSO.FILE存在（“c:\users\jgainey\desktop\test.txt”），则
开始图像
其他的
MsgBox“发生错误”&vbNewLine&“EC03:Test.txt”&vbequipment&“错误”
窗户，关上
如果结束
端接头
亚原始图像
'创建对象
' ==========================================================
昏暗的窗户风格
变暗bWaitOnReturn
昏暗的奥布舍尔
昏暗的地狱
尺寸objFSO，输出文件
模糊文件系统
设置objShell=CreateObject（“Wscript.Shell”）
设置WshShell=CreateObject（“WScript.Shell”）
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置filesys=CreateObject（“Scripting.FileSystemObject”）
set of so=CreateObject（“Scripting.FileSystemObject”）
文件集=of so.OpenTextFile（“c:\users\jgainey\desktop\test.txt”，1）
text=oFile.ReadAll
document.all.ProgSect.value=文本
端接头

结果是一个有我的背景图像、我的.gif、我的文本区域的窗口，就是这样，文本区域永远不会填充。当我删除test.txt文件时，不会弹出任何消息框，不会产生任何影响。

您忘记设置事件，以便子检查在页面加载时运行，如下所示：

<body background="c:\mount\windows\system32\aopentools\Images\MSCBG.bmp" onload="Check">

您忘记设置事件，以便子检查在页面加载时运行，如下所示：

<body background="c:\mount\windows\system32\aopentools\Images\MSCBG.bmp" onload="Check">

编辑：好的，我添加了它并定义了所有变量，现在它只是返回消息框，即使文件存在。这很奇怪。。。再次仔细检查文件位置。。。还要确认您的页面具有访问文件的权限…如果文本文档在那里，则可以正常工作，但如果我移动它，则会出现“错误：未找到文件”脚本错误窗口。因为我们需要使用错误代码，所以这不可能发生。有什么办法可以避免这种情况吗？再次感谢上面的内容，如果允许的话，我会投你一票。不过，更改MsgBox不会使内置的Windows弹出窗口消失。我想你是在其他地方触发内置的Windows弹出窗口，可能是在

BeginImage

子菜单上？

FileExists

方法不应该抛出错误…编辑：好的，我添加了它并定义了所有变量，现在它只是返回消息框，即使文件存在。这很奇怪。。。再次仔细检查文件位置。。。还要确认您的页面具有访问文件的权限…如果文本文档在那里，则可以正常工作，但如果我移动它，则会出现“错误：未找到文件”脚本错误窗口。因为我们需要使用错误代码，所以这不可能发生。有什么办法可以避免这种情况吗？再次感谢上面的内容，如果允许的话，我会投你一票。不过，更改MsgBox不会使内置的Windows弹出窗口消失。我想你是在其他地方触发内置的Windows弹出窗口，可能是在

BeginImage

子菜单上？

FileExists

方法不应抛出错误。。。

Sub Check

    ' Creating objects
    ' ==========================================================

        Dim oFSO
        Set oFSO = CreateObject("Scripting.FileSystemObject")

    ' ==========================================================

    If oFSO.FileExists("c:\users\jgainey\desktop\test.txt") Then

        BeginImage

    Else

        MsgBox "An Error Has Occurred" & vbNewLine & "EC03: Test.txt" & vbExclamation & "ERROR"
        Window.Close

    End If

End Sub