04/01/29 11:16 ZadSbxuh
Dim Fs,folderpath
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
folderpath=Fs.BuildPath("Z:\","Tmp")
If Fs.FolderExists(folderpath) Then
WScript.Quit
End If
Fs.CreateFolder folderpath
を拡張子vbsで保存し、スタートアップに登録。
04/01/29 11:16 ZadSbxuh
Dim Fs,folderpath
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
folderpath=Fs.BuildPath("Z:\","Tmp")
If Fs.FolderExists(folderpath) Then
WScript.Quit
End If
Fs.CreateFolder folderpath
を拡張子vbsで保存し、スタートアップに登録。