VBS/検証用ダミーファイル作成
の編集
https://sundays.ddns.net/?VBS/%E6%A4%9C%E8%A8%BC%E7%94%A8%E3%83%80%E3%83%9F%E3%83%BC%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E4%BD%9C%E6%88%90
[
トップ
] [
編集
|
差分
|
履歴
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#navi(../) '########################################################### 'ファイル名を連番で作成します。 ' ' ' '########################################################### 'ファイルサイズの入力 intBytes = InputBox("作成するファイルのサイズを指定してください。", "SEです。") 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("作成するファイルのサイズを指定してください。", "SEです。") 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]")
