VBレスキュー(花ちゃん) - 深い階層のフォルダーを一発で作成する(VB6.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 花ちゃん ---
-------------------------------------------------------------------------

Page: 1 |

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

日時： 2014/02/18 17:37
名前： 魔界の仮面弁士

***********************************************************************************
* カテゴリー：[フォルダー][][]                                                    *
* キーワード：ディレクトリ,,,,,　                                                 *
***********************************************************************************
Win9x が淘汰された今となっては、SHCreateDirectoryExW 版を使うのが良さそうです。

Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExW" ( _
    ByVal hwnd As OLE_HANDLE, ByVal pszPath As Long, ByVal psa As Any) As Long

Public Sub MakeDirectory(ByVal Path As String)
    '深い階層のディレクトリまで作成
    SHCreateDirectoryEx 0&, StrPtr(Path), 0&
End Sub

Page: 1 |

　投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ

題　　名	スレッドをトップへソート
名　　前
パスワード	（記事メンテ時に使用）
投稿キー	（投稿時を入力してください）
コメント	*********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************
	クッキー保存

スレッド一覧へ