Option Explicit '°Ê¹ß¤Î°ÅÌÛ¤ÎÊÑ¿ôÄêµÁ¤òµö²Ä¤·¤Ê¤¤ Dim objFSO ' FileSystemObject Dim strCopyFile ' ¥³¥Ô¡¼Âоݥե¡¥¤¥ë Dim strCopyFolder ' ¥³¥Ô¡¼Àè¥Õ¥©¥ë¥À̾ On Error Resume Next strCopyFile = "X:\My Projects\¥Õ¥¡¥¤¥ë¥ª¡¼¥×¥ó(WSH)\test.txt" strCopyFolder = "X:\My Projects\¥Õ¥¡¥¤¥ë¥ª¡¼¥×¥ó(WSH)\test\" '¡ Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If Err.Number = 0 Then ' ¥³¥Ô¡¼Àè¥Õ¥©¥ë¥À¤¬Â¸ºß¤·¤Ê¤¤¤È¤¤ÏºîÀ®¤¹¤ë If objFSO.FolderExists(strCopyFolder) <> True Then objFSO.CreateFolder(strCopyFolder) End If ' ¥Õ¥¡¥¤¥ë¥³¥Ô¡¼ objFSO.CopyFile strCopyFile, strCopyFolder, True If Err.Number = 0 Then WScript.Echo strCopyFile & " ¤ò " & _ strCopyFolder & " ¤Ë¥³¥Ô¡¼¤·¤Þ¤·¤¿¡£" Else WScript.Echo "¥¨¥é¡¼#" & Err.Number & ":" & Err.Description End If Else WScript.Echo "¥¨¥é¡¼#" & Err.Number & ":" & Err.Description End If On Error Goto 0 Set objFSO = Nothing