各位大大們~ 請教一下 > 小小公司連基本的資料庫都沒有,所以也只好全部使用 >

建議你研究一下batchmove    應該可以解決你的難題    手上有delphi的書,拿來翻翻應該找得到...    不然用關鍵字在ktop搜尋也可以...    又廢話了,不是自己的"管區"還是安分點好  

hahalin大大 我想我有幾個問題點可能沒交代清楚    s1 := 'D:\abc\test.dbf'; ---->test.dbf是原始檔名 (這不是一個固定檔名,他可能是此別名下的任何一個dbf檔) t1 := 'W:\xyz\test2.dbf'; ---->而test2.dbf是經由拷貝後產生的一個新檔案、新檔名(當然耳我會對這個檔案做其他的動作,不在此議題內) copyfile(@s1[1],@t1[1],true);    而其中D:\abc\視為alias1,(為變數1)我希望它能不被寫死於程式中 W:\xyz\視為alias2,(為變數2) 我想要的結果是 alias1中的某一個.dbf檔copy至alias2中並更名為新檔名,而原始檔也不能刪除或被搬走 重點是使用的語法中不能如上述的copyfile一樣得使用完整路徑,我必須使用alias代替 謝謝 原諒我的資淺~勞煩各位大大了 世間嘸人是做啥嚨一定成功咧~ 做人逗噯卡有認真打拼咧心~

您好﹗    以下是小弟的一些想法﹕ Alias1 Alias2 Alias3 宣告為String    Alias1為來源檔案﹐Alias2為目的檔案﹐ Alias3為目的路徑﹕ExtractFileDir(Alias2)    CopyFile(PChar(Alias1),PChar(Alias3+'暫時檔案名'),True);    if FileExist(Alias3+'暫時檔案名') then RenameFile(Alias3+'暫時檔案名', Alias3+'更改檔案名') else ShowMessage('暫時檔案不存在');    至于取得Alias1和Alias2的值﹐可以用OpenDialog方法﹒    如有錯誤﹐懇請指教﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

Hi juskey 您好: 你可以先用TSession來取得Alias的路徑, 再做其他步驟 參考GetAliasParams Help

procedure TForm1.Button1Click(Sender: TObject);
var MyStringList : TStringList;
begin
   MyStringList := TStringList.Create;
   try
     Session.GetAliasParams('DBDEMOS',MyStringList);
     ShowMessage(MyStringList.Values['PATH']);
   finally
     MyStringList.Free;
   end;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

回覆cashxin2002大大 --& >