全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1357
推到 Plurk!
推到 Facebook!

如何把指定資料夾內的檔案一一上傳?

答題得分者是:RedSnow
metals753
一般會員


發表:7
回覆:3
積分:2
註冊:2005-05-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-04 21:07:15 IP:218.167.xxx.xxx 未訂閱
int m=0,a=0;
    AnsiString xFile;
    while(m<=31)
    {
    xFile="C:\\homework\\test" IntToStr(m) ".jpg","r ";
    file1=fopen(xFile.c_str(),"r ");
    if (file1==NULL)
    {
    fclose(file1);
    m  ;
    }
     else
     {
      a  ;
      Label1->Caption="找到" IntToStr(a) "個";
      NMFTP1->Mode(MODE_BYTE);
      Edit3->Text="C:\\homework\\test" IntToStr(m) ".jpg";
      Edit4->Text="test" IntToStr(m);
      NMFTP1->Upload(Edit3->Text, Edit4->Text);
      fclose(file1);
      m  ;
     }
    }
    }
以上是程式的一部分 程式是主要搜尋c:\homework\資料夾裡面有幾個jpg檔 然後分別一一上傳到FTP 程式Compile有過 如過直接在Edit3內打上路徑和檔案名稱可以上傳成功 但是如果照上面程式這樣打的話上傳的時候似乎會找不到檔案 請問哪邊有需要更改的地方?
RedSnow
版主


發表:79
回覆:1322
積分:845
註冊:2003-12-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-04 22:02:30 IP:219.137.xxx.xxx 未訂閱
metals753 您好:    以下是將您的程式簡化過的寫法,您參考一下:
    int m = 0,a = 0;
    AnsiString LocalFile;
    AnsiString RemoteFile;
    while (m <= 31) {
        RemoteFile = "test" IntToStr(m) ".jpg";
        LocalFile = "C:\\homework\\" RemoteFile;
        if (FileExists(LocalFile)) {
            a  ;
            Label1->Caption = "找到 " IntToStr(a) " 個";
            NMFTP1->Mode(MODE_BYTE);
            NMFTP1->Upload(LocalFile, RemoteFile);
//          Edit3->Text = RemoteFile;
//          Edit4->Text = LocalFile;
//          NMFTP1->Upload(Edit3->Text, Edit4->Text);
        }
        m  ;
    }
如果您仍需透過 Edit3->Text, Edit4->Text 來運作的話,就將紅色標示的那一行刪除掉,然後將綠色標示那三行的註解符號 // 也刪除掉即可。 發表人 - RedSnow 於 2005/06/04 22:14:23
系統時間:2024-04-27 2:38:35
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!