#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(../)

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS