フォルダの検索＆作成

質問

タイトルにあるように
指定したフォルダが存在するかチェックして、そのフォルダがないときは、チェックしたフォルダを作成するプログラムを作りたいのですが、いまいち上手に出来ません

教えてください。お願いします
VB６を使用しています。

回答No.3

gu-tarou · ベストアンサー

フォルダーのパスを　Path$
フォルダー名を　F$

とした時、

b$ = Dir(Path + F$, vbDirectory)

b$ には、在ればフォルダー名が入ります。
よって

　If b$ = "" Then MkDir (Path + F$)
　Path = Path + F$ + "\"

でフォルダーを作成して　そのパスは　Path　になります。

回答No.2

davidname

Dir( dirname, vbDirectory )
ですね。dirnameの末尾は\をつけてはいけません。

回答No.1

taka_tetsu

チェックは不要では？

作ってできたら無かった、作成に失敗したらあった、ってことだし。

一応こんなのも。
http://www.galliver.co.jp/writing/msdn/msdn08/