この発言は
#00419　凛              さんのサブディレクトリの有無を調べる
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00443　凛              さん　RE^2:サブディレクトリの有無を調べる




　凛 さん、こんにちは。 Fermion です。m(_"_)m

　フォルダ自体が存在しない場合に psfi.dwAttributes内のゴミが悪さ
をするかも知れませんので、以下のようにされた方がよろしいかも知れ
ません。

//=====================================================================
function hasSubDir( path: string ): boolean;
var
  psfi:TSHFileInfo;
begin
  hasSubDir := False;
  if 0 <> SHGetFileInfo( pchar( Path ), 0, psfi, SizeOf( psfi ),
                                                SHGFI_ATTRIBUTES ) then
    hasSubDir := ( psfi.dwAttributes and SFGAO_HASSUBFOLDER <> 0 );
end;
//=====================================================================


                                     98/03/08(日) 16:12 Fermion [KHF03264]

Original document by Fermion         氏 ID:(KHF03264)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。