返回列表 上一主題 發帖

[發問] 如何取得已經有的FolderBrowserDialog值

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2014-8-22 09:11 | 顯示全部帖子
回復 1# z15935712
既然你放到TextBox1，何不從TextBox1取

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-8-22 15:38 | 顯示全部帖子
回復 4# z15935712
檔案系統的處理可查詢FileSystemObject找到相關資料
底下方式供參考:
  1.   Dim s, oFs, oFile
  2.   
  3.   s=TextBox1.Text
  4.   Set oFs = CreateObject("Scripting.FileSystemObject")
  5.   If oFs.FolderExists(s) Then
  6.     For Each oFile In oFs.GetFolder(s).Files  '所有該資料夾下檔案
  7.       If StrComp(Right(oFile.Path, Len(".xlsx")), ".xlsx") = 0 Then  '如果是.xlsx檔案
  8.         'msgbox oFile.Path
  9.       End If
  10.     Next
  11.   End If
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2014-8-25 16:06 | 顯示全部帖子
回復 7# z15935712
你這不是VBA吧...
VB.NET ???
沒有Right函式，你自己應該有能力找VB.NET下的字串函式來用

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題