(for Internet Explorer)
← ▼ ▲
↑
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]
テスト
関連
ファイル：
zip.vbs
→ zip, unzip.exe
 ← ▼ ▲
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
 ← ▼ ▲
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 を使ってください。
参考
関連
ファイル：
vbslib.vbs
 ← ▼ ▲
Sub  del( path as string )
ファイルまたはフォルダーを削除します。
関連
サンプル
  del  "File1.txt"
参考
→ T_Copy.vbs # [T_Del]
テスト
【引数】
path
削除するファイルのパス、またはフォルダーのパス
"File1.txt"
ソース
→ vbslib.vbs
→ vbslib_mini.vbs
path に Empty を指定したときは、何もしません。
path 引数に、
も指定できます。
リードオンリー属性のファイルやフォルダーも削除します。
 ← ▼ ▲
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 を削除します。
 ← ▼ ▲
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
参考
ゴミ箱の場所は、
の中の _RecycleBin フォルダーです。
 ← ▼ ▲
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 を選ばなかったら、削除しないで続きを実行します。
 ← ▼ ▲
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 プロパティ
 ← ▼ ▲
(src)
Set o = new DeleteSameFileClass
o.SourcePath       = "work\Source"
o.DestinationPath  = "work\Destination"
o.SynchronizedPath = "work\Synchronized"
o.Delete
サンプル
フォルダーの中に入っているファイルと同じ内容であれば削除します。 ただし、内容が異なるファイルは、
メニューに一覧します。 メニューを閉じるまで、Delete メソッドから戻りません。
Delete の代わりに DeleteForce を呼び出すと、メニューを表示しないで、強制削除します。
Delete の代わりに DeleteSameOnly を呼び出すと、メニューを表示しないで、削除もしません。
.SourcePath は、比較するファイルが入ったフォルダーのパス。
.DestinationPath は、削除するファイルが入ったフォルダーのパス。
.SynchronizedPath は、
のものと同じ。
テスト
→ T_CopyDelNotOver フォルダ
 ← ▼ ▲
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]
テスト
参考
"sub"
カレント・フォルダーに sub フォルダーを作成します。
Path に指定した場所に、すでにフォルダーがあるときは、何もしませんし、エラーにも
なりません。
サンプル
ファイル：
vbslib.vbs
ソース
→ vbslib_mini.vbs
 ← ▼ ▲
Sub  mkdir_for( FilePath as string )
指定のファイルを作成するためのフォルダを作成します。 ファイルは作成しません。
【引数】
FilePath
ファイルのパス
    mkdir_for  "sub\file1.txt"
sub\file1.txt ファイルを格納する sub フォルダを作成します。
→ T_File.vbs # [T_MkDir]
テスト
サンプル
ソース
→ vbslib.vbs
 ← ▼ ▲
Sub  rmdir( Path as string )
フォルダーを削除します。
del でも、rmdir と同じようにフォルダを削除できます。
(src)
【引数】
Path
削除するフォルダーのパス
  rmdir  "sub"
サンプル
テスト
→ T_Copy.vbs # [T_Del]
関連
ソース
→ vbslib.vbs
 ← ▼ ▲
Function  exist( path as string ) as boolean
フォルダーまたはファイルが存在するかどうかを返します。
If exist( "file1.txt" ) Then ...
ワイルドカードを指定することもできます。
関連
参考
サンプル
テスト
→ T_File.vbs
ソース
→ vbslib.vbs
→ vbslib_mini.vbs
Empty を指定したら、False が返ります。
T_Exist
 ← ▼ ▲
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
 ← ▼ ▲
Function  IsEmptyFolder( in_Path as string ) as boolean
空のフォルダーかどうかを返します。
【引数】
in_Path
調べるパス
返り値
空のフォルダーかどうか
テスト
→ T_File.vbs
ソース
→ vbslib.vbs
T_IsEmptyFolder
何もない
返り値
パスが指す先
ファイル
空のフォルダー
何か入ったフォルダー
True
False
False
False
 ← ▼ ▲
Sub  type_( Path as string )
テキストファイルの内容を表示します。
【引数】
Path
表示するファイルのパス
type は、VBScript の予約語なので、type の後に末尾にアンダースコアを付けた名前にしています。
  type_  "result.txt"
サンプル：
参考
 ← ▼ ▲
Function  ReadFile( Path as string ) as string
テキストファイルの全体を読み込みます。
【引数】
Path
返り値
読み込むテキストファイルのパス、または
テキストファイルの内容
ファイルが存在しないときでもエラーにならず、"" を返します。
エラーにするときは次のようにします。
多くの場合、行末に改行文字があります。 ReadFile で取得した末尾に
改行文字があることに注意してください。
Text1
ReadFile( "a.txt" ) = "Text1"+vbCRLF
a.txt
で作成したファイルは、改行文字は付きません。
text = ReadFile( "a.txt" )
サンプル：
  Set file = OpenForRead( "a.txt" )
  text = ReadAll( file )
→ T_File.vbs # [T_ReadFile]
関連
テスト
文字コードを指定するときは、
を使って
ください。 ただし、Shift-JIS, Unicode, UTF-8(BOMあり) は、使わな
くても自動的に文字コードを判定して、正しく読み込みます。
    Set cs = new_TextFileCharSetStack( "EUC-JP" )
    t = ReadFile( "a.txt")
    cs = Empty
→ vbslib.vbs
ソース
→ vbslib_mini.vbs
 ← ▼ ▲
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]
テスト
関連
(src)
指定のタグで囲まれたテキストを置き換えます
文字列の途中を取り出します
 ← ▼ ▲
Function  ReadAll( FileStream as TextStream ) as string
テキストファイルをすべてリードします。
【引数】
FileStream
返り値
開いている読み込むファイル
最後までリードしたテキスト
と異なり、ファイルサイズが 0 のときでも、エラーになりません。
(src)
関連
 ← ▼ ▲
  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"
サンプル
ソース
→ T_Binary.vbs
→ System.vbs
 ← ▼ ▲
テスト
テキスト・ファイルを比較します。 文字コードや改行文字が異なっていても構いません。
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
(*1)
文字コードについては、
ただし、BOM があるときや、Shift JIS のときは、Empty を指定できます。
サンプル
Assert  IsSameTextFile( "FileA.txt", "FileB.txt", Empty )
in_out_Options
オプション、または Empty
→ T_fc.vbs
関連
Options_ 引数
PathA のファイルにある空行は比較しない
Empty または、下記の定数の or、または、OptionsFor_IsSameTextFile_Class を指定できます。
c は、g_VBS_Lib の返り値です。
PathB のファイルには、
を含む
→ T_fc.vbs
内容が異なっていたら、エラーにする
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 は、
です。
.CharSetA
.CharSetB
比較するファイル A の文字コードセット (*1)
比較するファイル B の文字コードセット (*1)
vbslib4 の IsSameTextFile は、IsSameTextFile_Old に置き換えてください。
→ vbslib.vbs
ソース
テキストファイルの拡張子の設定
T_IsSameTextFileRegExp
T_IsSameTextFile