VBS/検証用ダミーファイル作成
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
'#######################################################...
'ファイル名を連番で作成します。
'
'
'
'#######################################################...
'ファイルサイズの入力
intBytes = InputBox("作成するファイルのサイズを指定して...
intBytes = intBytes / 2
Dim fileString 'ファイル名
Dim Counter 'カウンター
Counter = 0 ' 変数を初期化します。
While Counter < 20 ' カウンタの数を調べます。
fileString = String(10 - Len(Counter), "0″) & Counter
' Wscript.echo fileString 'テスト用（不要な場合コメント...
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile _
(fileString, 2, True)
For i = 1 To intBytes
Random = Int((10 - 0 + 1) * Rnd + 0)
objFile.Write Random
Next
objFile.Close
Counter = Counter + 1 ' カウンタの数を増やします。
Wend ' カウンタが 20 以上になると While ループを終了し...
#navi(../)
終了行:
#navi(../)
'#######################################################...
'ファイル名を連番で作成します。
'
'
'
'#######################################################...
'ファイルサイズの入力
intBytes = InputBox("作成するファイルのサイズを指定して...
intBytes = intBytes / 2
Dim fileString 'ファイル名
Dim Counter 'カウンター
Counter = 0 ' 変数を初期化します。
While Counter < 20 ' カウンタの数を調べます。
fileString = String(10 - Len(Counter), "0″) & Counter
' Wscript.echo fileString 'テスト用（不要な場合コメント...
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile _
(fileString, 2, True)
For i = 1 To intBytes
Random = Int((10 - 0 + 1) * Rnd + 0)
objFile.Write Random
Next
objFile.Close
Counter = Counter + 1 ' カウンタの数を増やします。
Wend ' カウンタが 20 以上になると While ループを終了し...
#navi(../)
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
