フォルダの作成方法

こんにちは、
新規にフォルダを作成する方法を教えてください。
任意の顧客登録Noをフォルダ名にしたい。

sinsin様
OSコマンドで 'cmd /c md c:\顧客登録NO' をウェイト：yes 画：なしで実行するのが一番単純です。ドライブ名と顧客登録NOを式か変数にするだけでいけると思います。
他の方法では旧フォーラムで現在もダウンロード可能と思いますがMGTOOLS.DLLとかACEUDF7.DLLがフォルダ作成関数をもっていると思います。※V9での動作は確認していません。
後はGET.DLLぐらいでしょうか。※V9で動作させた事があります。
GET.DLLは↓からダウンロード可能です。日本語ではありませんが、ヘルプを見れば理解出来ると思います。
http://mggen.free.fr/index.html

ありがとうございます。

以前mgtoolsで行った事を思い出しました。

試してみます。

お世話になります。

>OSコマンドで 'cmd /c md c:\顧客登録NO' をウェイト：yes 画：>なしで実行するのが一番単純です。ドライブ名と顧客登録NOを式
>か変数にするだけでいけると思います。

あるテーブルから一括してフォルダ作成を行おうとしていますが
この方法で試しているのですがうまくいきません。。。

>ドライブ名と顧客登録NOを式か変数にするだけ

この部分が悪いと思いますが方法がわかりません。

どなたかご存知の方おりましたらご教授の程よろしくお願いいたします。

yamazawaktさん
ドライブが項目Ａ、フォルダが項目Ｂに格納されているとして
'CMD /C MD '&TRIM(A)&TRIM(B)をOSコマンドで実行すれば良いかと思います。
GET.DLLを使うのであればコール ユーザーPROCで'GET.MD_DIR'を実行し引数にTRIM(A)&TRIM(B)を渡せば良いです。
お試し下さい。

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

↓のソールをコピーして　ファイル名を
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
'------　　ここまで--------------------------------

pu_mahaloさん

ご返答ありがとうございます！

すごい方法ですね・・・

参考にさせていただきます。

有難う御座いました！

Takeさんへ

ご返信ありがとうございました。

早速試したところうまくいきました！

大変助かりました。

また機会があればよろしくお願いいたします。