(for Internet Explorer)
← ▼ ▲
↑
unzip2
Sub unzip2( ZipPath as string, ExtractFolderPath as string )
zip ファイルを解凍します。 解凍先フォルダーを指定できます。
【引数】
ZipPath
ExtractFolderPath
zip ファイルのパス
解凍先フォルダーのパス
(src)
unzip2 "sample1.zip", "C:\folderA"
sample1
file1.txt
folderA
C:\
サンプル
sample1
file1.txt
sample1.zip
C:\folderA
file2.txt
file2.txt
sample1.zip
ExtractFolderPath のフォルダーの中に、フォルダーができるかどうかは、
zip ファイルの内容によります。 zip ファイルの中のルートに zip ファイルと
同じ名前のフォルダーがあるときは、そのフォルダーの中を展開します。
→ T_Zip.vbs # [T_unzip2]
テスト
関連
→ unzip
ファイル：
zip.vbs
→ zip, unzip.exe
← ▼ ▲
zip2
Sub zip2( ZipPath as string, SourceFolderPath as string, IsFolderName as boolean )
フォルダーを圧縮して、zip ファイルを作成します。
【引数】
ZipPath
SourceFolderPathObj
zip ファイルのパス
圧縮するフォルダーのパス
IsFolderName
zip ファイルの中に、ZipPath に指定したフォルダー名を入れるかどうか
関連
テスト
ソース
→ zip.vbs
→ zlib (clib)
→ T_Zip.vbs
T_zip2
← ▼ ▲
ren
Sub ren( src as string, dst as string )
src から dst にファイル名を変更します。
【引数】
src
dst
名前を変更するファイルのパス、またはフォルダーのパス
変更後のファイル名。 フォルダー・パスの指定は不要。
(src)
サンプル
ren "FolderA\File1.txt", "File2.txt"
"FolderA\File1.txt" ファイルを "FolderA\File2.txt" ファイルに改名します。
→ T_Ren.vbs # [main2]
テスト
dst にフォルダー・パスを指定しても無視されます。
ren "FolderA\File1.txt", "FolderB\File2.txt"
上記を実行したら、FolderB\File2.txt ではなく、FolderA\File2.txt にファイルが
ある状態になります。
別のフォルダーに移動するときは、move または move_ren を使ってください。
→ ファイル名、パス (Windows)
参考
→ Out of Writable 警告 [E_OutOfWritable]
関連
→ move_ren
ファイル：
vbslib.vbs
← ▼ ▲
del
Sub del( path as string )
ファイルまたはフォルダーを削除します。
→ FileSystemObject::DeleteFile
関連
サンプル
del "File1.txt"
→ ファイル名、パス (Windows)
参考
→ Out of Writable 警告 [E_OutOfWritable]
→ T_Copy.vbs # [T_Del]
テスト
【引数】
path
削除するファイルのパス、またはフォルダーのパス
"File1.txt"
→ del_to_trashbox
→ del_confirmed
→ CallForEach_del
ソース
→ vbslib.vbs
→ vbslib_mini.vbs
path に Empty を指定したときは、何もしません。
path 引数に、
PathDictionaryClass のオブジェクト
も指定できます。
リードオンリー属性のファイルやフォルダーも削除します。
← ▼ ▲
del_subfolder
Sub del_subfolder( Path as string or array of string )
ファイルまたはフォルダーを削除します。 サブ・フォルダーにある同名のものも含めて削除します。
(src)
del_subfolder "FolderA\text1.txt"
サンプル
FolderA フォルダーとそのサブ・フォルダーにある text1.txt を削除します。
削除されるファイルやフォルダーの例：
FolderA\sub1\text1.txt
FolderA\sub2\text1.txt
FolderA\sub1\sub3\text1.txt
FolderA\sub1\text1.txt\file.txt
【引数】
Path
削除するファイルまたはフォルダーのパス、またはその配列
ファイル：
vbslib.vbs
サブ・フォルダー（フォルダーの中のフォルダー）をすべて調べて、Path に指定したパスの、
ファイル名の部分に一致する名前のファイルやフォルダーを削除します。
削除されないファイルやフォルダーの例：
FolderA\sub1\text2.txt
テスト
→ T_Copy.vbs # del_subfolder
FolderA\sub1\sometext1.txt
"FolderA\text1.txt"
サンプル
del_subfolder "FolderA\*.txt"
FolderA フォルダーとそのサブ・フォルダーにある *.txt を削除します。
← ▼ ▲
del_to_trashbox
Sub del_to_trashbox( path as string )
ファイルまたはフォルダを vbslib のゴミ箱へ移動します。
(src)
指定したパスにファイルかフォルダーが無いときは、何もしません。 エラーにもなりません。
移動できなかったときは、エラー 17 になります。
サンプル
del_to_trashbox "File1.txt"
【引数】
path
削除するファイルのパス、またはフォルダーのパス
ファイル：
vbslib.vbs
"File1.txt"
テスト
→ T_Trash.vbs # del_to_trashbox
参考
→ Folder::MoveHere
ゴミ箱の場所は、
テンポラリ・フォルダー
の中の _RecycleBin フォルダーです。
← ▼ ▲
del_confirmed
Function del_confirmed( Path as string ) as boolean
ファイルまたはフォルダがあれば、ユーザに確認してから削除します。
(src)
テスト
→ T_Del_Manually.vbs # [T_del_confirmed]
【引数】
path
削除するファイルのパス、またはフォルダーのパス
サンプル
del_confirmed "File1.txt"
If exist( "File1.txt" ) Then Error
"File1.txt"
削除してよろしいですか？ : work\file1.txt (Y/N)
確認画面の例
ファイル：
vbslib.vbs
ユーザーが Y を選ばなかったら、削除しないで続きを実行します。
← ▼ ▲
del_empty_folder
Sub del_empty_folder( FolderPath as string or array of string )
ファイルやフォルダーが入っていないフォルダーを削除します。
【引数】
path
削除するフォルダーのパス、またはその配列
ファイル：
vbslib.vbs
FolderPath のサブ・フォルダーも、その中にファイルやフォルダーが入ってなければ、削除します。
最後がピリオド（例：Folder\. ）のときは、サブ・フォルダーは削除しません。
→ T_Copy.vbs
テスト
T_del_empty_folder
ソース
→ vbslib.vbs
関連
の DeleteFolderPaths プロパティ
PathDictionaryClass
← ▼ ▲
DeleteSameFileClass
(src)
Set o = new DeleteSameFileClass
o.SourcePath = "work\Source"
o.DestinationPath = "work\Destination"
o.SynchronizedPath = "work\Synchronized"
o.Delete
サンプル
フォルダーの中に入っているファイルと同じ内容であれば削除します。 ただし、内容が異なるファイルは、
SyncFilesMenu
メニューに一覧します。 メニューを閉じるまで、Delete メソッドから戻りません。
Delete の代わりに DeleteForce を呼び出すと、メニューを表示しないで、強制削除します。
Delete の代わりに DeleteSameOnly を呼び出すと、メニューを表示しないで、削除もしません。
.SourcePath は、比較するファイルが入ったフォルダーのパス。
.DestinationPath は、削除するファイルが入ったフォルダーのパス。
.SynchronizedPath は、
CopyNotOverwriteFileClass
のものと同じ。
テスト
→ T_CopyDelNotOver フォルダ
← ▼ ▲
mkdir
Function mkdir( Path as string )
フォルダーを作成します。
【引数】
Path
返り値
作成するフォルダーのパス
作成したフォルダーの数
c:\a という空のフォルダーがあるとき、c:\a\b というフォルダーがなくても、c:\a\b\c の
ようにネストして（孫フォルダーを）指定することができます。
フル・パスが250文字以上の長いパスになるフォルダーは作れません。
→ vbslib.vbs
mkdir "sub"
関連
→ T_File.vbs # [T_MkDir]
テスト
→ ファイル名、パス (Windows)
参考
→ Out of Writable 警告 [E_OutOfWritable]
"sub"
カレント・フォルダーに sub フォルダーを作成します。
Path に指定した場所に、すでにフォルダーがあるときは、何もしませんし、エラーにも
なりません。
サンプル
→ FileSystemObject::CreateFolder
→ mkdir_for
ファイル：
vbslib.vbs
ソース
→ vbslib_mini.vbs
← ▼ ▲
mkdir_for
Sub mkdir_for( FilePath as string )
指定のファイルを作成するためのフォルダを作成します。 ファイルは作成しません。
【引数】
FilePath
ファイルのパス
mkdir_for "sub\file1.txt"
sub\file1.txt ファイルを格納する sub フォルダを作成します。
→ T_File.vbs # [T_MkDir]
テスト
サンプル
ソース
→ vbslib.vbs
← ▼ ▲
rmdir
Sub rmdir( Path as string )
フォルダーを削除します。
del でも、rmdir と同じようにフォルダを削除できます。
(src)
【引数】
Path
削除するフォルダーのパス
rmdir "sub"
サンプル
テスト
→ T_Copy.vbs # [T_Del]
→ del
関連
ソース
→ vbslib.vbs
← ▼ ▲
exist
Function exist( path as string ) as boolean
フォルダーまたはファイルが存在するかどうかを返します。
If exist( "file1.txt" ) Then ...
ワイルドカードを指定することもできます。
→ FileSystemObject::FileExists
関連
→ FileSystemObject::FolderExists
→ GetExistPathInSetting
→ AssertExist
→ ファイル名、パス (Windows)
参考
サンプル
テスト
→ T_File.vbs
ソース
→ vbslib.vbs
→ exist_ex
→ vbslib_mini.vbs
Empty を指定したら、False が返ります。
T_Exist
← ▼ ▲
exist_ex
Set c = g_VBS_Lib
If exist_ex( "a.txt", c.CaseSensitive ) Then
Function exist_ex( Path as string, Opt as Empty or integer ) as boolean
フォルダーまたはファイルが存在するかどうかを返します。
【引数】
Path
Opt
存在を調べるパス
オプション、 Empty または c.CaseSensitive
返り値
存在するかどうか
関連
サンプル
テスト
→ T_File.vbs
ソース
→ vbslib.vbs
T_Exist
→ exist
← ▼ ▲
IsEmptyFolder
Function IsEmptyFolder( in_Path as string ) as boolean
空のフォルダーかどうかを返します。
【引数】
in_Path
調べるパス
返り値
空のフォルダーかどうか
テスト
→ T_File.vbs
ソース
→ vbslib.vbs
T_IsEmptyFolder
何もない
返り値
パスが指す先
ファイル
空のフォルダー
何か入ったフォルダー
True
False
False
False
← ▼ ▲
type_
Sub type_( Path as string )
テキストファイルの内容を表示します。
【引数】
Path
表示するファイルのパス
type は、VBScript の予約語なので、type の後に末尾にアンダースコアを付けた名前にしています。
type_ "result.txt"
サンプル：
→ ファイル名、パス (Windows)
参考
← ▼ ▲
ReadFile
Function ReadFile( Path as string ) as string
テキストファイルの全体を読み込みます。
【引数】
Path
返り値
読み込むテキストファイルのパス、または
テキストファイルの内容
ファイルが存在しないときでもエラーにならず、"" を返します。
エラーにするときは次のようにします。
多くの場合、行末に改行文字があります。 ReadFile で取得した末尾に
改行文字があることに注意してください。
Text1
ReadFile( "a.txt" ) = "Text1"+vbCRLF
a.txt
CreateFile
で作成したファイルは、改行文字は付きません。
→ ReadAll
text = ReadFile( "a.txt" )
サンプル：
Set file = OpenForRead( "a.txt" )
text = ReadAll( file )
→ T_File.vbs # [T_ReadFile]
関連
テスト
→ ReadFileInTag
→ CreateFile
文字コードを指定するときは、
new_TextFileCharSetStack
を使って
ください。 ただし、Shift-JIS, Unicode, UTF-8(BOMあり) は、使わな
くても自動的に文字コードを判定して、正しく読み込みます。
Set cs = new_TextFileCharSetStack( "EUC-JP" )
t = ReadFile( "a.txt")
cs = Empty
FilePathClass
→ vbslib.vbs
ソース
→ vbslib_mini.vbs
← ▼ ▲
ReadFileInTag
Function ReadFileInTag( Path as string, StartOfText as string, EndOfText as string ) as string
テキストファイルの中にある指定の開始タグと終了タグの間にあるテキストを読み込みます。
【引数】
Path
StartOfText
読み込むテキストファイルのパス
読み込む範囲の先頭にあるタグ（テキスト）、または Empty（＝先頭から）
タグの間のテキストファイルの内容。 タグ、および、先頭と末尾の改行は除く
読み込む範囲の末尾にあるタグ（テキスト）、または Empty（＝末尾まで）
返り値
EndOfText
読み込みサンプル
StartOfText = "<Tag>", EndOfText = "</Tag>" とします。
ファイル
返り値
abc<Tag>123</Tag>def
123
abc<Tag>
123
456
</Tag>def
123
456
（456の後に改行なし）
サンプル
Dim text
CreateFile "index.html", "abc<P class=""new"">123</P>def"
text = ReadFileInTag( "index.html", "<P class=""new"">", "</P>" ) : Assert text = "123"
CreateFile "index.html", "abc<P>def"
text = ReadFileInTag( "index.html", "<P>", Empty ) : Assert text = "def"
text = ReadFileInTag( "index.html", Empty, "<P>" ) : Assert text = "abc"
→ T_File.vbs # [T_ReadFileInTag]
テスト
関連
→ sscanf
→ ReplaceRange (ReplaceTextFile1)
(src)
指定のタグで囲まれたテキストを置き換えます
文字列の途中を取り出します
← ▼ ▲
ReadAll
Function ReadAll( FileStream as TextStream ) as string
テキストファイルをすべてリードします。
【引数】
FileStream
返り値
開いている読み込むファイル
最後までリードしたテキスト
と異なり、ファイルサイズが 0 のときでも、エラーになりません。
TextStream::ReadAll
(src)
→ ReadFile
関連
← ▼ ▲
ReadBinaryFile
Set bin = ReadBinaryFile( "unicode_sample.txt" )
If bin(0) = &hFF and bin(1) = &hFE Then
echo "This is unicode file."
End If
Function ReadBinaryFile( Path as string ) as BinaryArray
バイナリーファイルの全体を読み込みます。
【引数】
Path
返り値
バイナリーファイルのパス
バイナリー・データ
関連
テスト
"unicode_sample.txt"
サンプル
ソース
→ Load (BinaryArray)
→ T_Binary.vbs
→ System.vbs
→ BinaryArray クラス
→ new_BinaryArray
← ▼ ▲
IsSameTextFile
テスト
テキスト・ファイルを比較します。 文字コードや改行文字が異なっていても構いません。
Function IsSameTextFile( PathA as string, PathB as string,
in_out_Options as variant ) as boolean
【引数】
PathA
CharSetA
比較するファイル A のパス
比較するファイル A の文字コードセット (*1)
返り値
２つのファイルの内容が同じかどうか
比較するファイル B の文字コードセット (*1)
比較するファイル B のパス
CharSetB
PathB
→ new_TextFileCharSetStack
(*1)
文字コードについては、
ただし、BOM があるときや、Shift JIS のときは、Empty を指定できます。
サンプル
Assert IsSameTextFile( "FileA.txt", "FileB.txt", Empty )
in_out_Options
オプション、または Empty
→ T_fc.vbs
→ fc コマンド
関連
c.SkipLeftSpaceLine
Options_ 引数
PathA のファイルにある空行は比較しない
Empty または、下記の定数の or、または、OptionsFor_IsSameTextFile_Class を指定できます。
c は、g_VBS_Lib の返り値です。
c.RightHasPercentFunction
PathB のファイルには、
% を使った変換式
を含む
→ T_fc.vbs
c.ErrorIfNotSame
内容が異なっていたら、エラーにする
Function IsSameTextFile_Old( PathA as string, CharSetA as string,
PathB as string, CharSetB as string, Options_ as integer ) as boolean
Assert IsSameTextFile_Old( "FileA.txt", Empty, "FileB.txt", "EUC-JP", Empty )
IsSameTextFile は、
です。
比較関数型
OptionsFor_IsSameTextFile_Class
.CharSetA
.CharSetB
比較するファイル A の文字コードセット (*1)
比較するファイル B の文字コードセット (*1)
vbslib4 の IsSameTextFile は、IsSameTextFile_Old に置き換えてください。
→ vbslib.vbs
ソース
→ TextFileExtension (g_Vers)
テキストファイルの拡張子の設定
T_IsSameTextFileRegExp
T_IsSameTextFile
←
↓