用於運行VBS腳本的VB GUI界面

我有一個VBS腳本，我需要按月運行，它捕獲文件信息，包括文件名稱，類型，修改日期等。當我處理每個文件時，它會將其全部保存到CSV文件中，以便我可以在Excel上處理它。用於運行VBS腳本的VB GUI界面

要運行腳本我建立一個批處理文件.BAT

的問題是我需要某種形式的GUI界面使得運行批處理或VBS文件時，它會要求用戶輸入一個驅動器號掃描。

這是我的代碼：

test.vbs: 
Option Explicit 
Dim objFS, objFld 
Dim objArgs 
Dim strFolder, strDestFile, blnRecursiveSearch 
Dim strLines() 
Dim i 
Dim strCsv 

    i = 0 

' 'Get the commandline parameters 
' Set objArgs = WScript.Arguments 
' strFolder = objArgs(0) 
' strDestFile = objArgs(1) 
' blnRecursiveSearch = objArgs(2) 

    '################################### 
    'MAKE SURE THESE VALUES ARE CORRECT 
    '################################### 
    strFolder = "C:\" 
    strDestFile = "C:\test\Output.csv" 
    blnRecursiveSearch = True 

    'Create the FileSystemObject 
    Set objFS=CreateObject("Scripting.FileSystemObject") 
    'Get the directory you are working in 
    Set objFld = objFS.GetFolder(strFolder) 

    'Now get the file details 
    GetFileDetails objFld, blnRecursiveSearch 

    'Write the csv file 
    Set strCsv = objFS.CreateTextFile(strDestFile, True) 
    strCsv.Write Join(strLines, vbCrLf) 

    'Close and cleanup objects 
    strCsv.Close 
    Set strCsv = Nothing 
    Set objFld = Nothing 
    Set strFolder = Nothing 
    Set objArgs = Nothing 


Private Sub GetFileDetails(fold, blnRecursive) 
Dim fld, fil 
dim strLine(5) 

    If blnRecursive Then 
     'Work through all the folders and subfolders 
     For Each fld In fold.SubFolders 
      GetFileDetails fld, True 
     Next 
    End If 

    'Now work on the files 
    For Each fil in fold.Files 
     strLine(0) = fil.Path 
     strLine(1) = fil.Type 
     strLine(2) = fil.Size 
     strLine(3) = fil.DateCreated 
     strLine(4) = fil.DateLastModified 
     strLine(5) = fil.DateLastAccessed 

     Redim Preserve strLines(i) 
     strLines(i) = Join(strLine, ",") 
     i = i + 1 
    Next 
end sub

而且run.bat中

cscript.exe C:\script\test.vbs

正如你可以看到test.vbs指定哪些部分進行掃描和捕獲。代碼：strFolder = "C:\"

什麼是你最好的建議，運行這個的人比VB更經驗一些，所以他們需要某種圖形用戶界面接口來請求驅動器字母輸入然後修改行代碼strFolder = "C:\"他們輸入的任何驅動器號，然後運行test.vbs。

任何幫助表示讚賞。

:)乾杯

來源

2010-02-18 MalsiaPro

檢查[此WSH VBS GUI]（https://stackoverflow.com/a/47111556/2165759）解決方案。 – omegastripes 2017-11-09 15:16:43

這將是最簡單的只是添加驅動器號作爲您的VBScript參數。

Set oArgs = WScript.Arguments 
DriveLetter = oArgs(0) 
strFolder = DriveLetter & ":\"

然後，您可以像添加驅動器號一樣運行腳本。

cscript.exe C:\script\test.vbs C

如果用戶確實需要它，那麼可以將該腳本包裝在VB GUI中（輸入框如前建議）。或者更好的是，你的腳本可以讓他們輸入驅動器號。

備註（根據您使用的窗口版本以及您需要的日期），dir命令將使用/ t開關打印特定的文件日期。所以dir /ta會打印上次訪問的日期。不幸的是，它只能一次（訪問，修改，創建）。您可能可以使用它並將其傳送到文件（dir /ta > Output.txt）而不是編寫單獨的腳本。

來源

2010-02-18 15:02:28 ktharsis

你可以使用的InputBox

http://msdn.microsoft.com/en-us/library/3yfdhzk5(VS.85).aspx

來源

2010-02-18 14:26:45

聽起來很容易，但對我來說不幸的是，不是這樣，你可以將它與我的代碼合併。要麼創建一個costum批處理文件，要麼gui修改test.vbs並運行它。謝謝 – MalsiaPro 2010-02-18 14:42:48

@MalsiaPro，所以你需要一個GUI來更新用戶輸入路徑的正確代碼的VBS文件？ – 2010-02-18 14:50:13

是的，這正是我所需要的。我無法使用我的代碼填寫其他建議，請儘可能提供幫助。乾杯 – MalsiaPro 2010-02-18 14:55:17

的InputBox是最簡單的解決方案，雖然你可能必須做一些錯誤檢查。

還有BrowseForFolder，它可以讓用戶選擇一個文件夾。同樣，如果您想限制用戶只是驅動器的根文件夾，則可能必須執行一些錯誤檢查。

http://msdn.microsoft.com/en-us/library/bb774065(VS.85).aspx

來源

2010-02-18 14:42:14 JohnK813

爲什麼不使用vb.net？

對於您的驅動器盤符，您甚至可以使用下拉框。

Dim driveLetter as String = combobox.text 

If (Directory.Exists(driveLetter)) Then 
strFolder = combobox.text 
Else 
msgbox("Drive letter does not exist") 
End If

來源

2010-02-18 14:45:05 PandaNL

使用HTA應用程序。這是用於vbscript和jscript的最佳GUI。 http://technet.microsoft.com/en-us/library/ee692768.aspx

來源

2012-02-16 07:31:52

用於運行VBS腳本的VB GUI界面

回答

相關問題