引言: 如何來判斷將它們擴展名？是用ExtractFileExt？

Yes!!! ----------------------------------------------

var
   Name:AnsiString;
begin
     Name := '235.0923';
     Name := ExtractFileExt(Name);
     if Name ='.1005' then
        ShowMessage('1005')
     else if Name ='.0923' then
        ShowMessage('.0923')
     else
        ShowMessage('none');
end;

引言: 前兩位的數即10來判斷它應到從k01→k12文件夾中的k10文件夾, k01->k12 就是 代表 1->12個月, 每個月的專屬資料夾 后再取如*.1005后兩位的數即05從01文件夾→31文件夾中的→05文件夾 從k01→k12文件夾每個文件夾都有01→31文件夾 就是日期嘍 這個問題也許很難，您可以不的回答，再次感謝！！！ 這句話讓人啼笑皆非....

var
  Name:AnsiString;
  mm,dd: String;
begin
  Name := '235.0923';
  Name := ExtractFileExt(Name);
  mm := Copy(Name,2,2); // 取出'09'
  dd := Copy(Name.4,2); // 取出'23'
  edit2.text := '(目的主目錄)' '\k' mm '\' dd '(目的檔名)';
end;

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    var
  StrDirectory: String;
  StrDirectory_From: String;
  StrDirectory_To: String;    function CheckAndCreateDirectory(DestDir: String): Boolean;
begin
  Result := False;
  if not DirectoryExists(DestDir) then
    Result := ForceDirectories(DestDir)
  else
    Result := True;
end;    function CheckFileFormat(sFile: String): Boolean;
begin
  //在這裡檢查檔案格式是不是符合需求
  Result := True;
end;    procedure TForm1.FormShow(Sender: TObject);
var
  tmpStr: String;
  i,j: Integer;
begin
  StrDirectory := ExtractFileDir(ParamStr(0));
  StrDirectory := IncludeTrailingBackslash(StrDirectory);
  StrDirectory_From := IncludeTrailingBackslash(StrDirectory 'TestSrc');
  StrDirectory_To := IncludeTrailingBackslash(StrDirectory 'TestDest');
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  ExtName: String;
  mm,dd: String;
  toPath: String;
  fFrom,fTo: String;
begin
  if DirectoryExists(StrDirectory_From) then
  begin //若指定目錄存在時才做
    if FindFirst(StrDirectory_From   '*.*', faAnyFile, SearchRec) = 0 then
    begin
      repeat
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        begin
          //如果是檔案才做
          if (SearchRec.Attr and faArchive) = faArchive then
          begin
            // 檔案名稱符合規格才做
            if CheckFileFormat(SearchRec.Name) then
            begin
              ExtName := ExtractFileExt(SearchRec.Name);
              mm := Copy(ExtName,2,2); // 取出月份
              dd := Copy(ExtName,4,2); // 取出日期
              if (''<>mm) and (''<>dd) then
              begin
                toPath := IncludeTrailingBackslash(StrDirectory_To 'k' mm) dd;
                // 檢查並建立目的目錄
                if CheckAndCreateDirectory(toPath) then
                begin
                  fFrom := StrDirectory_From SearchRec.Name;
                  fTo := IncludeTrailingBackslash(toPath) SearchRec.Name;
                  try
                    CopyFile(PChar(fFrom), PChar(fTo), false);
                  except
                  end;
                end;
              end;
            end;
          end;
        end;
      until FindNext(SearchRec) <> 0;
    end;
    FindClose(SearchRec);
  end;
end;    end.

引言: