Re: フォルダの作成方法

こんにちはＰｕです
ささっと作ってみました
よかったら参考に使って下さい

↓のソールをコピーして　ファイル名を
create_folder.vbs　として保存して下さい
使い方はソースのコメントに記述しています。

'------　　ここから切り取り--------------------------------

'***********************************************************
'
'起動方法
' Wscript.exe create_folder.vbs c:\pdf_tmp\web.file
' ^^^^^^^^^^^^^^^^^^
' ↑
' 作成したいフォルダ名
' Magicからは os　コマンドで　create_folder.vbs フォルダ名
'***********************************************************
'---変数定義
Dim mkFoldername
Dim Fs

'--- パラメータ判断してフォルダ名をGETします
If WScript.Arguments.Count = 1 Then
mkFoldername = WScript.Arguments.Item(0)
Else
WScript.Echo "パラメータ：フォルダ名指定してください。"
WScript.Quit
End If

'---インスタンス化
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

'-- もしフォルダが存在しないなら作成する
If Fs.FolderExists(mkFoldername)=False Then
Fs.CreateFolder mkFoldername
End If
'------　　ここまで--------------------------------