「xltx形式のExcelをVBScriptで保存する」試してみた。 単にSaveメソッド？で保存するとxlsx形式で保存されてるみたい。単に保存するだけではＮＧな様子。SaveASメソッドでファイル名を指定して保存するだけでもＮＧでした。 実際には以下のメッセージのエラ…

WSHのファイルをUTF-8で保存したの。 実行しようとしたらエラーが出ましたわ。というのも、Visual Web Developer 2005 Express Editionってのを使って VBScriptを書こうとしたらファイルのエンコードがUTF-8なのよね〜。めんどくさい話ですわ。

Const BROWSER_WIDTH = 600 Const BROWSER_HEIGHT = 400 Const BROWSER_INIT_X = 10 Const BROWSER_INIT_Y = 10 Const csTitlePostfix=" - Microsoft Internet Explorer" Const clSleep = 400 Const url = "http://www.hatena.ne.jp/" Dim ie, shell, i Set …

Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 WScript.Echo objArgs(I) Next

Const LOG_FOLDER_PATH = "C:\" Dim dtNow, dateStr dtNow = Date() Set objRegExp = new RegExp objRegExp.Pattern = "\/" objRegExp.Global = True dateStr = objRegExp.Replace(dtNow,"") Dim createFolderPath createFolderPath = LOG_FOLDER_PATH & dat…

Dim dtNow, ret dtNow = Date() Set objRegExp = new RegExp objRegExp.Pattern = "\/" objRegExp.Global = True ret = objRegExp.Replace(dtNow,"") WScript.Echo ret

Dim setpath setpath = "C:\foo" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) Call RenameForCheckedFiles(objFolder, "foo.gif", ".gif") sub RenameForCheckedFiles(folder, rBeforeStr,…

Dim setpath setpath = "C:\foo" Dim fileList Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) Call MakeFilePathList(objFolder, fileList) Call OutPutText(fileList) sub MakeFilePathList…

Dim setpath setpath = "C:\foo" Dim fileList Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) For Each objFile In objFolder.Files fileList = fileList & objFile.Path fileList = fileLis…