Dosya mı Klasör mü

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
cetoonak
Üye
Mesajlar: 50
Kayıt: 12 Haz 2003 09:53
Konum: www.mussimsek.com

Dosya mı Klasör mü

Mesaj gönderen cetoonak »

Herhangi bir pathin dosya mı yoksa klasör mü olduğunu nasıl anlarım.
ikut

Re: Dosya mı Klasör mü

Mesaj gönderen ikut »

cetoonak yazdı:Herhangi bir pathin dosya mı yoksa klasör mü olduğunu nasıl anlarım.
helpte fadirectory diye aratırsan atributlardan bulursun
cetoonak
Üye
Mesajlar: 50
Kayıt: 12 Haz 2003 09:53
Konum: www.mussimsek.com

Mesaj gönderen cetoonak »

Teşekkürler

function IsFolder(Path: String): Boolean;
begin
Result:=FileGetAttr(Path) = 16;
end;

Bu işimi gördü.
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

Sabit değer kullanmaktansa isimlendirilmiş sabitini kullanmak daha doğru olur :idea:

Kod: Tümünü seç

function IsFolder(Path: String): Boolean;
begin
  Result := FileGetAttr(Path) = faDirectory;
end; 
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
Kullanıcı avatarı
Trial_Cooder
Üye
Mesajlar: 236
Kayıt: 17 Nis 2006 04:44

Mesaj gönderen Trial_Cooder »

if FileExits(Edit1.Text) then
ShowMessage('Dosya')
else
ShowMessage('Klasör');
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3081
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

VCL

Mesaj gönderen sabanakman »

VCL de bu da var

Kod: Tümünü seç

if DirectoryExists(S) then //klasör
else if FileExists(S) then //dosya
else ;//????
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
Cevapla