'###########################################################
'ファイルをコピーするためのフォルダを作成します。
'階層にも対応していますがそれぞれ指定しなくてはいけません。
'###########################################################

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


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2018-01-03 (水) 21:45:50 (704d)