.版本 2.支援庫 internet.子程式 _列表框1_雙擊選擇.如果 (連線FTP伺服器 (FTP, USR, PAS, , )) FTP置現行目錄 () " 設為你指定的目錄 .如果 (FTP檔案下載 (列表框1.取專案文字 (列表框1.現行選中項), “.\temp.txt”, )) 編輯框1.內容 ＝ 到文字 (讀入檔案 (“.\temp.txt”)) .否則 資訊框 (“FTP檔案下載失敗”, 16, “錯誤”) .如果結束 斷開FTP伺服器 ().否則 資訊框 (“連線FTP伺服器失敗”, 16, “錯誤”).如果結束.子程式 _按鈕1_被單擊.區域性變數 檔案列表, 文字型, , "0".區域性變數 cnt, 整數型.區域性變數 tmp, 整數型.如果 (連線FTP伺服器 (FTP, USR, PAS, , )) FTP置現行目錄 () " 設為你指定的目錄 cnt ＝ FTP目錄列表 (“*.txt”, , 檔案列表, , , ) 列表框1.清空 () .計次迴圈首 (cnt, tmp) 列表框1.加入專案 (檔案列表 [tmp], ) 處理事件 () .計次迴圈尾 () 斷開FTP伺服器 ().否則 資訊框 (“連線FTP伺服器失敗”, 16, “錯誤”).如果結束

子程式下的程式碼這樣寫:編輯框1.內容 ＝ 到文字 (讀入檔案 (“C:\a.txt”))類似的你也可以寫其他的:標籤1.標題 ＝ 到文字 (讀入檔案 (“C:\a.txt”))