返回列表 上一主題 發帖

[發問] 不固定的搜尋路徑

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2015-11-25 15:18 | 顯示全部帖子
回復 1# man65boy

試試看
  1.   Dim ii As Integer
  2.     'xPath = "D:\mydata\Desktop\新增資料夾 (2)\圖片資料夾\"                 '圖片的資料夾
  3.     With Application.FileDialog(msoFileDialogFolderPicker)
  4.         If .Show = True Then
  5.             xPath = .SelectedItems(1) & "\"
  6.         Else
  7.             Exit Sub
  8.         End If
  9.     End With
複製代碼
  1. MsoFileDialogType 可以是這些 MsoFileDialogType 常數之一。
  2. msoFileDialogFilePicker  允許使用者選取檔案。
  3. msoFileDialogFolderPicker  允許使用者選取資料夾。
  4. msoFileDialogOpen  允許使用者開啟檔案。
  5. msoFileDialogSaveAs  允許使用者儲存檔案。
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題