VBS/フォルダを作成
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#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]")
