如何取得Folder Name ?? 非 Directory Name . |
|
尚未結案
|
|
Dip
一般會員   發表：6 回覆：4 積分：2 註冊：2004-04-19 發送簡訊給我 |
|
|
nlj859
資深會員   發表：139 回覆：375 積分：322 註冊：2004-03-20 發送簡訊給我 |
Hello Dip. 請參考底下程式碼:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (DirectoryListBox1->ItemIndex==-1)
ShowMessage("Please select one item!");
else
{
AnsiString str=DirectoryListBox1->Items->Strings[DirectoryListBox1->ItemIndex];
int index=str.Pos("\\");
while (index!=0)
{
str = str.SubString(index 1,str.Length()-index);
index = str.Pos("\\");
}
ShowMessage(str);
}
}
|
|
andychang1690
資深會員 發表：20 回覆：694 積分：442 註冊：2003-03-14 發送簡訊給我 |
如抓取
E:\Program Files\BCB\Include
只要得到Include
建議使用如下副程式連檔案都可以得到
AnsiString Get_Name(AnsiString FileName)
{
AnsiString S=FileName.Trim().LowerCase();
int i=S.LastDelimiter("\\");
int j=S.Length();
return (S.SubString(i 1, j-i));
}
請參考
Andy Chang
------
Andy Chang |
|
max5020
資深會員 發表：30 回覆：277 積分：321 註冊：2003-06-04 發送簡訊給我 |
發表時間：2004-08-21 21:33:52
IP:220.130.xxx.xxx 未訂閱
系統時間：2024-05-03 22:21:47
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |