帮助 - Vb脚本！ [英] HELP - Vb Script!!

问题描述

我是vbs的新手。我试图从我的vbs文件中运行Windows程序，但它不起作用。有人可以帮我解决这个问题。 以下是我遇到困难的代码块;

I'm a neophyte to vbs. I am trying to run a Windows program from inside my vbs file, but it's not working. Can someone help me out here.  Here is the block of code I'm having difficult with;

功能BackupTheBackup（Byval ExitCode，Byval stSyncDirectory）

  On Error Resume Next

 

  Dim objShell，iReturnCode

  Dim fso，file，recentFile

  Dim recentFileName， DestinationDirName

  Dim TeraCopy，StrCmdLine，SourceDirFileName

       

 设置fso = CreateObject（" Scripting.FileSystemObject"）

 设置recentFile = Nothing

  For Each files in fso.GetFolder（"E：\Macrium Reflect Backups \Nightly Backups"）。文件

  如果（recentFile is Nothing）则为
    设置recentFile = file

   ElseIf（file.DateLastModified> recentFile.DateLastModified）然后

    设置recentFile = file

  结束如果

 下一个

 

 如果recentFile为Nothing那么

   WScript.Echo"没有最近的文件"而是
 否则

   WScript.Echo"开始备份主备份到辅助备份"


 结束如果

Function BackupTheBackup(Byval ExitCode, Byval stSyncDirectory)
 On Error Resume Next
 
 Dim objShell, iReturnCode
 Dim fso, file, recentFile
 Dim recentFileName, DestinationDirName
 Dim TeraCopy, StrCmdLine, SourceDirFileName
       
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set recentFile = Nothing
 For Each file in fso.GetFolder("E:\Macrium Reflect Backups\Nightly Backups").Files
   If (recentFile is Nothing) Then
     Set recentFile = file
   ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
     Set recentFile = file
   End If
 Next
 
 If recentFile is Nothing Then
   WScript.Echo "no recent files"
 Else
   WScript.Echo "Begin Backing up The Primary Backup to the Secondary Backup"
 End If

  TeraCopy =""" C ：\ My Programs \Tools n Utilities \File.Folder Copy Tools \TeraCopy（v3.Beta 2）\TeraCopy.Exe"""

  SourceDirFileName =" "" E：\" &安培; recentFile.Name& """"

  DestinationDirName =" "" F：\ Amacrium Reflect Backups \Nightly Backups""

 TeraCopy = """C:\My Programs\Tools n Utilities\File.Folder Copy Tools\TeraCopy(v3.Beta 2)\TeraCopy.Exe"""
 SourceDirFileName = " ""E:\" & recentFile.Name & """"
 DestinationDirName = " ""F:\Macrium Reflect Backups\Nightly Backups"""

'  **************** **********************************
$
  WScript.Echo"125 - TeraCopy =" &安培; TeraCopy

  WScript.Echo" 126 - SourceDirFileName =" &安培; SourceDirFileName

  WScript.Echo" 127 - DestinationDirName =" &安培; DestinationDirName

'  ************************************** ************ 

' **************************************************
 WScript.Echo "125 - TeraCopy = " & TeraCopy
 WScript.Echo "126 - SourceDirFileName = " & SourceDirFileName
 WScript.Echo "127 - DestinationDirName = " & DestinationDirName
' ************************************************** 

  StrCmdLine = TeraCopy& SourceDirFileName& DestinationDirName

  WScript.Echo" 131 - StrCmdLine is" &安培; StrCmdLine

 

'  iReturnCode = 0

 设置ObjShell = CreateObject（" Wscript.Shell"）

  objShell.Run" StrCmdLine"    < ============这是似乎没有运行的代码行&我也知道它的错误。到目前为止，一切正常。

'  Set S = CreateObject（" WScript.Shell"）

'  S.Run" "" StrCmdLine"""

 StrCmdLine = TeraCopy & SourceDirFileName & DestinationDirName
 WScript.Echo "131 - StrCmdLine is " & StrCmdLine
 
' iReturnCode = 0
 Set ObjShell = CreateObject("Wscript.Shell")
 objShell.Run "StrCmdLine"    <============ This is the line of code that doesn't seem to run & I get know errors about it either. Everything works up to this point.
' Set S = CreateObject("WScript.Shell")
' S.Run """StrCmdLine"""

'  iReturnCode = objShell.Run（StrCmdLine，0，true）

'  WScript.Echo "137 - iReturnCode =" &安培; iReturnCode

    

' 

 '清理

 设置objShell =没有为
 设置objWshProcessEnv =无为
结束功能

' iReturnCode = objShell.Run(StrCmdLine,0,true)
' WScript.Echo "137 - iReturnCode = " & iReturnCode
    
' 
 ' Clean up
 Set objShell = nothing
 Set objWshProcessEnv = nothing
End Function

推荐答案

因为你的任务是关于vbs，你应该在VBS论坛中提问。这个论坛是关于小型基础语言。

As your questuion is about vbs, you should ask in a VBS-forum. This forum is about ther Small Basic language.

这篇关于帮助 - Vb脚本！的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！