其他

FileExists 方法如果指定的檔案存在返回 True；否則返回 False。object.FileExists(filespec) 參數object必選項。應為 FileSystemObject 對象的名稱。filespec必選項。檔案名稱，表示要確定是否存在的檔案。如果檔案不在當前檔案夾中，則必須提供完整路徑名（絕對路徑或相對路徑）。說明下面例子舉例說明如何使用 FileExists 方法： Function ReportFileStatus(filespec) Dim fso,

在大部分情況下，Msxml2.XMLHTTP 能夠很好地完成工作，因為它是有緩衝的。比如，我們用 Msxml2.XMLHTTP 發送 HTTP POST 請求類比登陸了某個網站，它會把登陸時的 Cookie 和 Session 緩衝下來，當我們想擷取網站的資料時直接 HTTP GET 就行了，不需要人工發送 Cookie 和 Session。 但是，在有些時候，緩衝會給我們造成麻煩。比如我們要寫一個 VBS

複製代碼 代碼如下: set wsh = createobject("wscript.shell") wscript.sleep 15 * 60 * 1000 wsh.run "shutdown /s /t 0" 雙擊運行，居然彈出個錯誤對話方塊 複製代碼 代碼如下: Line: 1 Char: 1 Error: Wrong number of arguments or invalid property assignment: ‘wsh' Code: 800A01C2 Source:

其實 MSDN 的 VBScript 文檔中關於 Function 和 Sub 語句的部分提到過 Default 關鍵字： 複製代碼 代碼如下: Default Used only with the Public keyword in a Class block to indicate that the Function procedure is the default method for the class. An error occurs if more than one Default

GetExtensionName 方法返回字串，該字串包含路徑最後一個組成部分的副檔名。object.GetExtensionName(path) 參數object必選項。應為 FileSystemObject 的名稱。path必選項。指定路徑，用於返回其組成部分的副檔名。說明對於網路磁碟機，根目錄 (\) 也認為是一個組成部分。如果路徑組成部分與 path 參數不匹配，則 GetExtensionName 方法返回零長度字串 ("")。下面例子舉例說明如何使用

GetFileName 方法返回指定路徑（不是指定磁碟機路徑部分）的最後一個檔案或檔案夾。object.GetFileName(pathspec) 參數object必選項。應為 FileSystemObject 的名稱。pathspec必選項。指定檔案的路徑（絕對路徑或相對路徑）。說明如果 pathspec 不是以已命名的檔案或檔案夾結束，則 GetFileName 方法返回零長度字串 ("")。下面例子舉例說明如何使用 GetFileName 方法：下面舉例說明 GetFileName

GetFolder 方法返回與指定的路徑中某檔案夾相應的 Folder 對象。object.GetFolder(folderspec) 參數object必選項。應為 FileSystemObject 的名稱。folderspec必選項。folderspec 是指定檔案夾的路徑（絕對路徑或相對路徑）。說明如果指定檔案夾不存在，則會出現錯誤。下面例子舉例說明如何使用 GetFolder 方法返迴文件夾對象：Sub AddNewFolder(path, folderName) Dim fso, f,

複製代碼 代碼如下: title="WinRaR破譯(目前只做了破譯數字)" set WshShell = CreateObject("WScript.Shell" ) set fso = CreateObject("scripting.filesystemobject") Function input()

Keys 方法返回一數組，其中包含有 Dictionary 對象的所有現存鍵。object.Keys object 應為 Dictionary 對象的名稱。 說明下列代碼舉例說明如何使用 Keys 方法： Function DicDemo Dim a,d,i              '建立一些變數。Set d =

在測試目錄寫了一個簡單的referer.php，代碼如下 複製代碼 代碼如下: <?php if (!isset($_SERVER["HTTP_REFERER"])) echo "No Referer"; else echo $_SERVER["HTTP_REFERER"]; ?> 如果直接點擊上面的連結，那麼頁面會顯示referer頁面的連結。 複製代碼 代碼如下: Set http = CreateObject("msxml2.xmlhttp") http.open "GET"

pack.vbs 用來打包檔案夾, 根目錄為檔案所在目錄. 複製代碼 代碼如下: Dim n, ws, fsoX, thePath Set ws = CreateObject("WScript.Shell") Set fsoX = CreateObject("Scripting.FileSystemObject") thePath = ws.Exec("cmd /c cd").StdOut.ReadAll() & "\" i = InStr(thePath, Chr(13)) thePath =

壓縮代碼: 複製代碼 代碼如下: Zip "D:\test.iso", "D:\test.zip" Zip "D:\test", "D:\test.zip" Msgbox "OK" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateObject("Scripting.FileSystemObject") If fso.GetExtensionName(myZipFile) <> "zip" Then Exit

既然Python可以計算2的100次方，那麼我就要用VBS實現。不過這個效率嘛，計算2的10000次方Python用了0.009013秒，VBS用了120.9805秒，不是一個等級的，我就不多說什麼了。 直接上代碼： 複製代碼 代碼如下: 'Date: 2010/10/27 'Author: Demon 'QQ: 380401911 'E-mail: still.demon@gmail.com begin = Timer n = 1 For i = 1 To 100 n =

複製代碼 代碼如下: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colFiles = objWMIService. _ ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'") For

do.vbs複製代碼 代碼如下:'BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments(0) Set fso=CreateObject("Scripting.FileSystemObject") Set htm=fso.CreateTextFile(txt&".htm",True) title=fso.GetFile(txt).Name title=Left(

而Windows下沒有一個現存的比較好用的分割工具，所以我用VBS做了一個文字檔的分割工具，和各位網友共用。指令碼代碼如下： 複製代碼 代碼如下: Option Explicit '這個指令碼只用來分割文字檔，指令碼需要3個參數 '參數列表 '檔案名稱 參數1 參數2 '夢想工作室 www.mx111.com '樣本 參數1 參數2 參數意義 ' S 5 等分為5個檔案 ' E 1024 按照1024的大小分割檔案 ' F 1024 取最前面的1024位元組存為一個檔案 ' L 1024

複製代碼 代碼如下: On Error Resume Next 'Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject("Scripting.FileSystemObject") Set Conn = CreateObject("ADODB.Connection") Set Rs = CreateObject("ADODB.Recordset")

複製代碼 代碼如下:set arg=wscript.arguments If arg.count = 0 Then show_help() wsh.quit End If Server = arg(0) User = arg(1) pass = arg(2) database_name = arg(3) table_name = arg(4) set Conn = CreateObject("ADODB.Connection") Conn.Open "Driver={SQL

CreateFolder 方法建立檔案夾。object.CreateFolder(foldername)參數object必選項。應為 FileSystemObject 對象的名稱。foldername必選項。字串運算式，指明要建立的檔案夾。說明如果指定的檔案夾已經存在，則會出現錯誤。下面例子舉例說明如何使用 CreateFolder 方法： Function CreateFolderDemo Dim fso, f Set fso =

CreateTextFile 方法建立指定檔案並返回 TextStream 對象，該對象可用於讀或寫建立的檔案。object.CreateTextFile(filename[, overwrite[, unicode]])參數object必選項。應為 FileSystemObject 或 Folder 對象的名稱。filename必選項。字串運算式，指明要建立的檔案。overwrite可選項。Boolean 值指明是否可以覆蓋現有檔案。如果可覆蓋檔案，該值為