Home > スポンサー広告 > サクラエディタのマクロ - ファイルをリネーム

スポンサーサイト

スポンサー広告

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Comments:-

Comment Form

Trackback+Pingback:-

TrackBack URL for this entry
http://karafuto50.blog117.fc2.com/tb.php/43-0531fafb
Listed below are links to weblogs that reference
スポンサーサイト from Karafuto Blog
Trackback from 2013-12-03 (火) 02:55

-

管理人の承認後に表示されます (more…)

Home > スポンサー広告 > サクラエディタのマクロ - ファイルをリネーム

Home > sakuraeditor > サクラエディタのマクロ - ファイルをリネーム

サクラエディタのマクロ - ファイルをリネーム

sakuraeditor

マクロの内容は、名前を付けて保存でファイルを作成しておいて、元のファイルを削除している。

マクロを実行するとダイアログが出るので、ファイル名を入力する。何も入力しないか、キャンセルすると、何も起こらない。

Dim filepath, filename, word, fso
Set fso = CreateObject("Scripting.FileSystemObject")

filepath = GetFilename
filename = ExpandParameter("$f")
word = InputBox("新しいファイル名を入力してください", , filename)
If word <> "" AND word <> filename Then
    FileSaveAs word, 99, 0
    fso.DeleteFile(filepath)
End If

2行目 Set fso = CreateObject("Scripting.FileSystemObject")の CreateObjectは VBScriptの関数です。サクラエディタマクロでは、WScript.Shell オブジェクトなどはいきなりは使えませんと、いうことです。

普通のスクリプトと同じように WScript.CreateObject("Scripting.FileSystemObject")などとやろうものなら、オブジェクトがないぞ :'WScript'と、何度も怒られる。

Comments:0

Comment Form

Trackback+Pingback:1

TrackBack URL for this entry
http://karafuto50.blog117.fc2.com/tb.php/43-0531fafb
Listed below are links to weblogs that reference
サクラエディタのマクロ - ファイルをリネーム from Karafuto Blog
Trackback from 2013-12-03 (火) 02:55

-

管理人の承認後に表示されます (more…)

Home > sakuraeditor > サクラエディタのマクロ - ファイルをリネーム

おまかせリンク(R)
全記事表示リンク
Search
Meta
Feeds

Page Top

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。