VBS/フォルダを作成
の編集
https://sundays.ddns.net/?VBS/%E3%83%95%E3%82%A9%E3%83%AB%E3%83%80%E3%82%92%E4%BD%9C%E6%88%90
[
トップ
] [
編集
|
差分
|
履歴
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#navi(../) '########################################################### 'ファイルをコピーするためのフォルダを作成します。 '階層にも対応していますがそれぞれ指定しなくてはいけません。 '########################################################### Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(".\Addresses.txt") Do Until objFile.AtEndOfStream strComputer = objFile.ReadLine strRemoteDir = "\\" & strComputer & "\E$" DirSpec_1 = strRemoteDir & "\Altiris" DirSpec_2 = DirSpec_1 & "\AClient" If objFSO.FolderExists(DirSpec_2) Then Wscript.echo "既にフォルダが存在しています。" Else Wscript.echo "フォルダを作成します。" 'フォルダ作成 objFSO.CreateFolder (DirSpec_1) objFSO.CreateFolder (DirSpec_2) Wscript.echo "作成したフォルダは " & DirSpec_2 & " です。" End If Loop #navi(../)
タイムスタンプを変更しない
#navi(../) '########################################################### 'ファイルをコピーするためのフォルダを作成します。 '階層にも対応していますがそれぞれ指定しなくてはいけません。 '########################################################### Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(".\Addresses.txt") Do Until objFile.AtEndOfStream strComputer = objFile.ReadLine strRemoteDir = "\\" & strComputer & "\E$" DirSpec_1 = strRemoteDir & "\Altiris" DirSpec_2 = DirSpec_1 & "\AClient" If objFSO.FolderExists(DirSpec_2) Then Wscript.echo "既にフォルダが存在しています。" Else Wscript.echo "フォルダを作成します。" 'フォルダ作成 objFSO.CreateFolder (DirSpec_1) objFSO.CreateFolder (DirSpec_2) Wscript.echo "作成したフォルダは " & DirSpec_2 & " です。" End If Loop #navi(../)
テキスト整形のルールを表示する
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
