易語言目錄文件

Ⅰ 易語言列舉運行目錄文件夾

用ListView控制項列舉指定目錄中的文件，以列舉C盤文件目錄為例子：

procere TForm1.Button1Click(Sender: TObject);
var
SearchRec : TSearchRec;
Path : String;
Attr : integer;
Found : integer;
begin
Path := 'c:\*.*';//設定要專顯示的路徑
Attr := faAnyFile;
Found := FindFirst(Path, Attr, SearchRec);//查找文件屬
while Found = 0 do
begin
ListView1.Items.Add; //添加內容
ListView1.Items[ListView1.Items.Count-1].Caption := (SearchRec.Name);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);//停止查找
end;

Ⅱ 易語言怎樣顯示指定目錄內所有的文件和文件夾

.版本 2
.支持庫 iext

.子程序 目錄文件夾
.局部變數回 link, 文本型
.局部變數 link1, 文本型
.局部變數 目錄, 文本型

超級列表框1.全部答刪除 ()
目錄 ＝ 驅動器框1.驅動器 ＋ 「:\*」
link ＝ 尋找文件 (目錄, #子目錄)
.判斷循環首 (link ≠ 「」)
.如果真 (link ≠ 「.」 且 link ≠ 「..」)
超級列表框1.插入表項 (, link, 0, , , )
.如果真結束

link ＝ 尋找文件 (, #子目錄)
.判斷循環尾 ()
link1 ＝ 尋找文件 (目錄, #子目錄)
.判斷循環首 (link1 ≠ 「」)
.如果真 (link1 ≠ 「.」 且 link1 ≠ 「..」)
超級列表框1.插入表項 (, link1, 1, , , )
.如果真結束

link1 ＝ 尋找文件 (, )
.判斷循環尾 ()

.子程序 _驅動器框1_驅動器被改變

目錄文件夾 ()

---------------------------------
組件2個 超級列表框+驅動器

源碼粘貼進去就OK

Ⅲ 怎麼讓易語言運行當前目錄文件

很簡單。代碼如下：

.程序集 窗口程序集1

.子程序 _按鈕1_被單擊

運行 (取運行目錄 () ＋ 「\123.exe」, 假, )

Ⅳ 易語言 打開當前目錄的文件夾

取運行目錄（）+「\」這樣取出的就是
當前程序所在的文件夾的地址。

Ⅳ 易語言 如何 列出 指定目錄下 所有 文件名

一個簡單的、、、

.版本 2
.支持庫 EThread

.程序集 窗口程序集1
.程序集變數 是否停止, 邏輯型專
.程序集變數 列表屬框文件名, 文本型, , "0"

.子程序 __啟動窗口_創建完畢

編輯框1.內容 ＝ 取運行目錄 () ＋ 「\」
組合框1.加入項目 (「*」, )
組合框1.加入項目 (「exe」, )
組合框1.加入項目 (「jpg」, )
組合框1.加入項目 (「bmp」, )
組合框1.現行選中項 ＝ 0

.子程序 _按鈕1_被單擊

是否停止 ＝ 假
啟動線程 (&子程序1, , )

.子程序 子程序1
.局部變數 表項
.局部變數 路徑, 文本型
.局部變數 文件名, 文本型

.如果真 (是否停止 ＝ 真) ' 搜索被停止，則返回
返回 ()
.如果真結束
文件名 ＝ 尋找文件 (編輯框1.內容 ＋ 組合框1.內容, )
.判斷循環首 (文件名 ≠ 「」) ' 顯示找到的文件
列表框1.加入項目 (文件名, )
加入成員 (列表框文件名, 編輯框1.內容 ＋ 文件名)
文件名 ＝ 尋找文件 (, )
.判斷循環尾 ()

.子程序 _按鈕2_被單擊

是否停止 ＝ 真

Ⅵ 易語言如何做到取根目錄下目錄中的文件 我這樣做哪裡錯了嗎

〈文本型〉 取特定目錄 （整數型 欲獲取目錄類型）
〈文本型〉 取運行目錄 （）
取運行目錄是不能有參數的
如：
取運行目錄()+"\軟體\FLASH\快速安裝.exe"

Ⅶ 易語言如何把一個文件放到指定目錄下。（目錄自選）

復制文件?寫到制文件?

.版本 2
.支持庫 shell
目錄 ＝ 瀏覽文件夾 (「請指定目錄...」, )
.如果真 (改變目錄 (目錄))
' 檢測 瀏覽文件夾() 返回的目錄是否有效
改變目錄 (取運行目錄 ())
' 1
復制文件 (源文件, 目錄 ＋ 「\」 ＋ 文件名)
' 2
寫到文件 (目錄 ＋ 「\」 ＋ 文件名, 位元組集)
.如果真結束

Ⅷ 易語言如何打開運行目錄下的所有文件

首先把文件枚舉出來，例:
添加一個列表框。
_子程序_啟動窗口_創建完畢_
枚舉文件()
_子程序_枚舉文件
局部變數 文件路徑 文本型
局部變數 文件名稱 文本型
文件路徑＝取運行目錄()＋"\*.*"
文件名稱＝尋找文件(文件路徑，)
判斷循環首(文件名稱≠"")
列表框1.加入項目(取文本左邊(文件路徑，取文本長度(文件路徑)–3)＋文件名稱，)
文件名稱＝尋找文件(，)
判斷循環尾()
這樣就把運行目錄下的文件枚舉在列表框裡面了，想要打開可以:
點擊選中列表框，然後在左邊點屬性點上方的三角尖，選中列表框雙擊選擇項，會自動添加一個子程序，在那個子程序下寫:
打開指定網址(列表框1.取項目文本(列表框1.現行選中項))
這樣雙擊列表框的項目就能打開文件。

Ⅸ 易語言如何取文件所在的目錄

寫到文件 (取運行目錄 () ＋ 「123.bat」, 到位元組集 (編輯框1.內容))就可以了。

版本 2

子程序

_按鈕1_被單擊

局部變數 文件名稱, 文本型

文件名稱 ＝ 尋找文件 (「d:欲取目錄*.*」, )

.判斷循環首 (文件名稱 ≠ 「」)

列表框1.加入項目 (文件名稱, )

文件名稱 ＝ 尋找文件 (, )

判斷循環尾 ()

Ⅹ 易語言如何獲取文件夾內的所有文件

顯示指定目錄內所有的文件和文件夾的代碼如下：

.版本 2

.支持庫 iext

.子程序 目錄文件夾
.局部變數 link, 文本型
.局部變數 link1, 文本型
.局部變數 目錄, 文本型

超級列表框1.全部刪除 ()
目錄 ＝ 驅動器框1.驅動器 ＋ 「:*」
link ＝ 尋找文件 (目錄, #子目錄)
.判斷循環首 (link ≠ 「」)

.如果真 (link ≠ 「.」 且 link ≠ 「..」)
超級列表框1.插入表項 (, link, 0, , , )
.如果真結束

link ＝ 尋找文件 (, #子目錄)
.判斷循環尾 ()
link1 ＝ 尋找文件 (目錄, #子目錄)
.判斷循環首 (link1 ≠ 「」)

.如果真 (link1 ≠ 「.」 且 link1 ≠ 「..」)
超級列表框1.插入表項 (, link1, 1, , , )
.如果真結束

link1 ＝ 尋找文件 (, )
.判斷循環尾 ()

.子程序 _驅動器框1_驅動器被改變

目錄文件夾 ()

組件2個 超級列表框+驅動器

以下為代碼圖：

參考資料來源：網路-易語言