VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

深い階層のフォルダーを一発で作成する(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2016/06/13 12:29
名前： VBレスキュー(花ちゃん): ***********************************************************************************
* カテゴリー：[フォルダー][][]                                                    *
* キーワード：ディレクトリ,,,,,                                                 *
***********************************************************************************

元質問：フォルダ作成について - myu  2005/06/16-21:23 No.3560

C:\Test\Data\1フォルダーを作成したいと思っています。
現在はC:\Testフォルダまでは存在します。
後のData\1フォルダをまとめて作成することはできないんでしょうか？
※mkdir "C:\Test\Data\1" では作成できなかったので

----------------------------------------------------------------------------------
Re^4: フォルダ作成について - だい  2005/06/17-13:11 No.3566
----------------------------------------------------------------------------------

過去ログの補足ですが(^^;、

MakeSureDirectoryPathExistsを使用される際には、
フォルダ名に全角文字を含む場合、正常に作成されないケースがあります。
お使いの環境で動作検証を充分に行ってください。
また、
SHCreateDirectoryExに関しては、利用可能なOSにもご留意ください。
SHCreateDirectoryExは、
  Windows NT/2000：　Windows 2000 以降
  Windows 95/98/Me：　WinMe

MakeSureDirectoryPathExistsは、
  Windows NT/2000：　Windows NT 3.1 以降
  Windows 95/98/Me：　Windows 95 以降

Private Declare Function SHCreateDirectoryEx Lib "shell32" _
    Alias "SHCreateDirectoryExA" ( _
    ByVal hwnd As Long, _
    ByVal pszPath As String, _
    ByVal psa As Any) As Long
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
    ByVal DirHelp As String) As Long

Function createfoldertest()
    SHCreateDirectoryEx 0&, "D:\てんぷ\2バイト文字は大丈夫かな\TEST", 0&
    MakeSureDirectoryPathExists "D:\てんぷその2\2バイト文字は大丈夫かな\TEST"
End Function

以上、ご参考まで。

-------------------------------------------------------------------------
このサイトの下記でも紹介しております。
http://hanatyan.sakura.ne.jp/vbhlp/director.htm
           --- by 花ちゃん ---
-------------------------------------------------------------------------