如何可以讓ComboBox顯示某個位址下的所有檔案名稱 |
尚未結案
|
TIY~2
一般會員 發表:26 回覆:37 積分:22 註冊:2003-08-07 發送簡訊給我 |
|
gemi0305
版主 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
參考以下範例,
在form上加入一edit、一button和一combobox,再加入程式:
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { Edit1->Text="c:\\"; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString Directory; Directory = Edit1->Text; char CopyDir[1000]; strcpy(CopyDir, Directory.c_str()); WIN32_FIND_DATA Data; char Name[1000]; lstrcpy(Name, CopyDir); lstrcat(Name, "*.*"); HANDLE hFile = FindFirstFile(Name, &Data); bool Res = true; bool FirstFile = true; if (hFile != INVALID_HANDLE_VALUE) { while (Res) { if (!(Data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) { if (FirstFile) { ComboBox1->Items->Add(Data.cFileName); FirstFile = false; } else ComboBox1->Items->Add(Data.cFileName); } Res = FindNextFile(hFile, &Data); Application->ProcessMessages(); } } }國泰平安 |
TIY~2
一般會員 發表:26 回覆:37 積分:22 註冊:2003-08-07 發送簡訊給我 |
|
TIY~2
一般會員 發表:26 回覆:37 積分:22 註冊:2003-08-07 發送簡訊給我 |
謝謝剛剛自己亂用就成功了!!
所以我把程式縮減了一下!!
省點一些繁雜的部分
char *Name = ".\\Path1\\*.*"; //設定列出路徑位址 簡化輸入 WIN32_FIND_DATA Data; HANDLE hFile = FindFirstFile(Name, &Data); bool Res = true; bool FirstFile = true; if (hFile != INVALID_HANDLE_VALUE) { while (Res) { if (!(Data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) { if (FirstFile) { CB_LoadSample->Items->Add(Data.cFileName); FirstFile = false; } else CB_LoadSample->Items->Add(Data.cFileName); } Res = FindNextFile(hFile, &Data); Application->ProcessMessages(); } } |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |