萊恩大叔

 [前言]在indusoft中使用vbs還是有蠻多限制，主要是WScript不可以引用，shell也只能引用部分。所以在使用基本vbscript操作時有時候還是會卡一下，在這兒紀錄一下開啟資料夾的語法。 Dim   folderPath, objShell Set  Objshell  =  CreateObject (  "Shell.Application"  ) folderPath  =  "D:\Report" Objshell.explore folderPath

dim txt,pos txt="This is a beautiful day!" 'A textual comparison starting at position 4 pos=InStr(4,txt,"is",1) document.write(pos) 輸出： 6   定義和用法 InStr 函數可返回一個字符串在另一個字符串中首次出現的位置。 InStr 函數可返回下面的值： 如果 string1 為 ""（零長度） - InStr 返回 0 如果 string1 為 Null - InStr 返回 Null 如果 string2 為 "" - InStr 返回 start 如果 string2 為 Null - InStr 返回 Null 如果 string2 沒有找到 - InStr 返回 0 如果在 string1 中找到 string2，InStr 返回找到匹配字符串的位置。 如果 start > Len(string1) - InStr 返回 0 提示： 請參閱 InStrRev 函數 。 語法 InStr([start,]string1,string2[,compare]) 參數 描述 start 可選的。規定每次搜索的起始位置。默認是搜索起始位置是第一個字符。如果已規定 compare 參數，則必須有此參數。 string1 必需的。需要被搜索的字符串。 string2 必需的。需搜索的字符串。 compare 必需的。規定要使用的字符串比較類型。默認是 0 。可採用下列值： 0 = vbBinaryCompare - 執行二進制比較。 1 = vbTextCompare - 執行文本比較。   參考： http://www.w3school.com.cn/vbscript/func_instr.asp

在電腦能開啟的檔案，都可以用這種方法呼叫開啟 CreateObject("WScript.Shell").Run("""d:\桌面\aa_logo.jpg""") 收工~~~~(什麼!太簡單。最近很忙~~沒時間太多廢話)

' Standard housekeeping Dim objFolder, objItem, objShell SelectFolder = vbNull ' Create a dialog object Set objShell = CreateObject( "Shell.Application" ) Set objFolder = objShell.BrowseForFolder( 0, "Select Folder", 0, myStartFolder ) ' Return the path of the selected folder If IsObject( objfolder ) Then SelectFolder = objFolder.Self.Path ' Standard housekeeping Set objFolder = Nothing Set objshell = Nothing 參考資料: http://www.robvanderwoude.com/vbstech_ui_selectfolder.php

參考網址:http://www.microsoft.com/china/vbscript/vbslang/vsfctDateAdd.htm DateAdd( interval , number , date ) DateAdd 函數的語法有以下部分： interval 必選。 字符串表達式 ，表示要添加的時間間隔。有關數值，請參閱「設置」部分。 number 必選。 數值表達式 ，表示要添加的時間間隔的個數。數值表達式可以是正數（得到未來的日期）或負數（得到過去的日期）。 date 必選。 Variant 或要添加 interval 的表示日期的文字。 設置 interval 參數可以有以下值： 設置 描述 yyyy 年 q 季度 m 月 y 一年的日數 d 日 w 一週的日數 ww 周 h 小時 n 分鐘 s 秒 說明: NewDate=DateAdd("d", -7, now())    "d"：以天為單位；-7：往前7天；now()：以目前日期為主

Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") WshShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0" /r 關機並重新啟動 /t xxx 將關機前的等候逾時時間設定為 xxx 秒。 正確的範圍是 0-315360000 (10 年)，預設值為 30。 若逾時期間大於 0，則會隱含 /f 參數。 /f 沒有事先警告使用者就強制執行中的應用程式關閉。 為 /t 參數指定大於 0 的值時， 會隱含 /f 參數。

前言: 這篇不適用於Indusoft，因為他媽的Indusoft不支援Wscript物件。 (此程式無須用到WScript.Shell) 此篇功能在於可以將工作管理員內的程式給關閉。 在此我們示範開啟多個小算盤，在工作管理員我們看到應用程式頁籤程式的名稱就叫做"小算盤"，而在處理程序頁籤中叫做"calc.exe"。VBS程式碼如下: Set objShell = CreateObject("WScript.Shell") '這行沒用到 Set objWmi = GetObject("winmgmts:") 'calc.exe 是小算盤的程式名稱 strWmiq = "select * from Win32_Process where name='calc.exe'" Set objQResult = objWmi.Execquery(strWmiq) For Each objProcess In objQResult intRet = objProcess.Terminate(1) Next  應用此程式碼，不管你開啟幾個小算盤程式，他都會將其關閉。 參考網址: http://www.windowsitpro.com/forums/aft/39103 再次聲明:此程式碼不適用於IWS    可用於IWS

前言: 最近在做專案時，需要使用到File Dialog來取得使用者要儲存的位置和檔名。 但在G大神搜尋到的都是使用UserAccounts.CommonDialog的方式，這個方式有個缺點(致命的缺點)就是只有Winxp才能使用。 後來才找到另外一個 MSComDlg.CommonDialog的方式，終於可以使用在Win7。但是它是使用comdlg32.OCX的ActiveX方式執行，所以必須要有此元件。這個元件呢，是只有安裝VB6或 vb6編譯完成的程式才可以(此物件除了系統註冊外還必須要授權)。(有在後面找到註冊的方法，但是必須要真的擁有vb6的軟體授權才能使用) 先來講解一下UserAccounts.CommonDialog的程式部分 ' Standard housekeeping Dim objDialog ' Create a dialog object Set objDialog = CreateObject( "UserAccounts.CommonDialog" ) ' Check arguments and use defaults when necessary 'If myDir = "" Then ' Default initial folder is "My Documents" ' objDialog.InitialDir = CreateObject( "WScript.Shell" ).SpecialFolders( "MyDocuments" ) 'Else ' Use the specified initial folder objDialog.InitialDir = "c:\" 'End If If myFilter = "" Then ' Default file filter is "All files" objD...

Public Function MsgBox( _ ByVal Prompt As Object, _ Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _ Optional ByVal Title As Object = Nothing _ ) As MsgBoxResult 參數 Prompt 必選項。以消息形式顯示在對話框中的 String 表達式。Prompt 的最大長度大約為 1024 個字符，具體取決於所用字符的寬度。如果 Prompt 中包含多個行，則可在各行之間用回車符 (Chr(13))、換行符 (Chr(10)) 或回車換行符的組合 (Chr(13) & Chr(10)) 分隔各行。 Buttons 可選項。數值表達式，它是值的總和，指定顯示的按鈕數目及按鈕類型，使用的圖標樣式，默認按鈕的標識以及消息框的樣式等。如果省略 Buttons，則默認值為零。 Title 可選項。顯示在對話框標題欄中的 String 表達式。如果省略 Title，則將應用程序名放在標題欄中。 設置 下表列出了 MsgBoxStyle 枚舉值。 枚舉 值 說明( 若想要的按鈕和圖示要共存的話，請將代碼相加帶入即可 ) OKOnly 0 只顯示「確定」按鈕。 OKCancel 1 顯示「確定」和「取消」按鈕。 AbortRetryIgnore 2 顯示「中止」、「重試」和「忽略」按鈕。 YesNoCancel 3 顯示「是」、「否」和「取消」按鈕。 YesNo 4 顯示「是」和「否」按鈕。 RetryCancel 5 顯示「重試」和「取消」按鈕。 Critical 16 顯示「關鍵消息」圖標。 Question 32 顯示「警告查詢」圖標。 Exclamation 48 顯示「警告消息」圖標。 Information 64 顯示「信息消息」圖標。 DefaultButton1 0 第一個按鈕是默認的。 DefaultButton2 256 第二個按鈕是默認的。 DefaultButton3 512 第三個按鈕是默認的。 ApplicationModal 0 應用程序是有模式的。用戶必須響...