alias對alias檔案的拷貝,程式該怎麼寫? |
尚未結案
|
juskey
一般會員 發表:2 回覆:2 積分:0 註冊:2002-06-27 發送簡訊給我 |
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
juskey
一般會員 發表:2 回覆:2 積分:0 註冊:2002-06-27 發送簡訊給我 |
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代替
謝謝
原諒我的資淺~勞煩各位大大了 世間嘸人是做啥嚨一定成功咧~
做人逗噯卡有認真打拼咧心~
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 以下是小弟的一些想法﹕
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方法﹒ 如有錯誤﹐懇請指教﹗ =====================
努力,相信會獲得美麗!
忻晟
------
忻晟 |
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
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;我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
juskey
一般會員 發表:2 回覆:2 積分:0 註冊:2002-06-27 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |