子階層を含むディレクトリの作成
たとえば以下に示すディレクトリを作成する場合、 「C:\TEMP\USER\KAMAKURA\SURFIN」 Vbで提供されている機能だけでは、 まず、C:\TEMPを探し、なければ作成。 その後、C:\TEMP\USERを探し、なければ作成。 その後、C:\TEMP\USER\KAMAKURAを探し、なければ作成。 その後、C:\TEMP\USER\KAMAKURA\SURFINを探し、なければ作成。 こんなに長い手順が必要です。 この長い手順を一発でやってのけるWindowsAPIを見つけました。 モジュールの宣言部に Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" _ (ByVal DirPath As String) As Long を書き、実際にディレクトリを作成する個所で MsgBox MakeSureDirectoryPathExists("C:\TEMP\USER\KAMAKURA\SURFIN\") を書きます。(ディレクトリ名の末尾に"\"が必要ですよ) この1行だけで子階層を含むディレクトリを作ってくれます。簡単でしょ! 戻り値はTrueかFalseを返します。 ディレクトリが正常に生成できた場合はゼロ以外の値を返します。 |
動作確認
Window98 Second Edition + Visual Basic 6このサンプルを使用しての感想や、質問は 掲示板や、 らくがき帳に書きとめて頂けるとうれしいです。