台灣最大程式設計社群網站
線上人數
945
 
會員總數:246045
討論主題:189631
歡迎您免費加入會員
討論區列表 >> VB6 >> 顯示檔案 如何重新讀取
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
顯示檔案 如何重新讀取
價值 : 50 QP  點閱數:184 回應數:1
樓主

兩光
門外漢
0 8
124 4
發送站內信





Private Sub Command2_Click()

File1.Path = "d:\111\"

For i = 0 To File1.ListCount - 1
Text1.Text = Text1.Text + File1.List(i) + vbCrLf
Next
End Sub

以上作法是顯示資料夾裡的檔案

但是假設 我再丟一個檔案進去
再點一下 一就是無法掃到新丟的檔案
只能關閉程式 再重案

該如何不關閉程式的情況下 可以讀取到新的檔案

搜尋相關Tags的文章: [ 檔案 ] ,
本篇文章發表於2020-06-23 11:55
1樓
最有價值解答

樹哥
檢舉此回應
Private Sub Command2_Click()
List1.Clear
File1.Refresh '加上這行即可

File1.Path = "d:\111\"
For i = 0 To File1.ListCount - 1
List1.AddItem File1.List(i)
Next
End Sub
本篇文章回覆於2020-06-23 21:27
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.