容器安裝ftp客戶端

㈠ 易語言 ftp的操作

.版本 2
.支持庫 iext
.支持庫 internet.局部變數 項目類型, 整數型
.局部變數 選中項, 整數型
.局部變數 當前目錄, 文本型
.局部變數 容器1, 整數型選中項 ＝ 遠程文件框.現行選中項
.如果真 (選中項 ＝ -1)
返回 ()
.如果真結束
項目類型 ＝ 遠程文件框.取表項數值 (選中項)當前目錄 ＝ FTP取現行目錄 ()
.判斷開始 (項目類型 ＝ 0) ' 是否為到上目錄
容器1 ＝ 倒找文本 (當前目錄, 「/」, , 真)
.如果真 (容器1 ≠ -1)
當前目錄 ＝ 取文本左邊 (當前目錄, 容器1)
.如果真 (當前目錄 ≠ 「/」)
當前目錄 ＝ 取文本左邊 (當前目錄, 容器1 － 1)
.如果真結束
FTP置現行目錄 (當前目錄)
填充遠程框 ()
.如果真結束.判斷 (項目類型 ＝ 1) ' 是否到子目錄
.如果真 (取文本右邊 (當前目錄, 1) ≠ 「/」)
當前目錄 ＝ 當前目錄 ＋ 「/」
.如果真結束
FTP置現行目錄 (當前目錄 ＋ 遠程文件框.取標題 (選中項, ))
填充遠程框 ()
.默認.版本 2
.支持庫 iext
.支持庫 internet.子程序 填充遠程框
.局部變數 文件名, 文本型, , "0"
.局部變數 文件尺寸, 整數型, , "0"
.局部變數 文件屬性, 整數型, , "0"
.局部變數 文件時間, 日期時間型, , "0"
.局部變數 數目, 整數型
.局部變數 容器1, 整數型
.局部變數 名稱, 文本型
.局部變數 索引, 整數型
.局部變數 現行目錄, 文本型遠程文件框.全部刪除 ()狀態標簽.標題 ＝ 「正在獲取目錄列表,請稍候...」
狀態標簽.刷新顯示 () ' 立即顯示改變後的標題
數目 ＝ FTP目錄列表 (「*.*」, , 文件名, 文件屬性, 文件尺寸, 文件時間)
' 填充目錄
現行目錄 ＝ FTP取現行目錄 ()
.如果真 (現行目錄 ≠ 「/」)
遠程文件框.插入表項 (, , 0, , , 0) ' 如果不是根目錄,則插入到父目錄的特殊表項
.如果真結束.計次循環首 (數目, 容器1)
.如果真 (位與 (文件屬性 [容器1], #子目錄) ≠ 0)
名稱 ＝ 文件名 [容器1]
.如果真 (取文本左邊 (名稱, 1) ≠ 「.」)
索引 ＝ 遠程文件框.插入表項 (, 名稱, 1, , , 1)
遠程文件框.置標題 (索引, 2, 到文本 (文件時間 [容器1]))
.如果真結束 .如果真結束.計次循環尾 ()
' 填充文件
.計次循環首 (數目, 容器1)
.如果真 (位與 (文件屬性 [容器1], #子目錄) ＝ 0)
索引 ＝ 遠程文件框.插入表項 (, 文件名 [容器1], 2, , , 2)
遠程文件框.置標題 (索引, 1, 到文本 (文件尺寸 [容器1]))
遠程文件框.置標題 (索引, 2, 到文本 (文件時間 [容器1]))
.如果真結束.計次循環尾 ()

㈡ FTP如何設置禁止刪除

用DACL，先去服務裡面看FTP用的是什麼用戶登錄（一般是SYSTEM）怕麻煩後面就用EVERYONE。
然後對不能刪除的文件夾屬性-》許可權-》高級，裡面就可以設置詳細許可權了，把刪除對象設為拒絕，范圍設為容器和子對象OK