フォルダ自体の情報を取得するには？ (ID:44083)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 結局の所、実際に書き込んで試してみないとダメだった記憶があります。 ↓こんな感じの関数作って、 function IsWritableFolder(aPath: string): Boolean; var hFile: THandle; dFileName: String; begin result := False; if not DirectoryExists(aPath) then Exit; dFileName := IncludeTrailingPathDelimiter(aPath) + 'writablecheck.temporary'; UniqueString(dFileName); hFile := CreateFile(PChar(dFileName), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_TEMPORARY or FILE_FLAG_DELETE_ON_CLOSE, 0); result := (hFile <> INVALID_HANDLE_VALUE); if result then CloseHandle(hFile); end; ↓こんな感じで使います。 procedure TForm1.Button1Click(Sender: TObject); const MSG: array [Boolean] of string = ('書き込めないよ...orz', '書き込めるよ (^o^)/'); begin // Edit1 に入力されたパスに対して書き込み可能か調べる ShowMessage(MSG[IsWritableFolder(Edit1.Text)]); end;