引言: 比如說: C:\\Test\\1\\1.txt 要怎麼取得恰好檔案所在目錄夾的名稱 而非絕對路徑

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString szFilePath = "C:\\Test\\1\\1.txt";
  AnsiString szFolderName;
  szFilePath = ExtractFilePath(szFilePath);
  szFilePath[szFilePath.Length()] = NULL;
  szFolderName = ExtractFileName(szFilePath);
  ShowMessage(szFolderName);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String Path = ExtractFilePath("C:\\Test\\1\\1.txt");        TReplaceFlags flag;
    flag << rfReplaceAll << rfIgnoreCase;
    TStrings *ssPath = new TStringList;
    ssPath->Text = StringReplace(Path, "\\", "\n", flag);
    /* Caption 就是你檔案所在的目錄名稱 */
    if (ssPath->Count > 0)
        Caption = ssPath->Strings[ssPath->Count - 1];
    else
        Caption = Path;
    delete ssPath;
}