返回列表下一主題上一主題發帖

[發問] 選擇資料夾進而取得其名字

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-3-21 23:02 | 顯示全部帖子

[發問] 選擇資料夾進而取得其名字

請教各位先進們
      在表單裡  想用視窗作選擇  得到某一個資料匣名字(含路徑) 應如下語法?
類似如下視窗作選擇  得到某一個檔
Filt = "Excel Files (*.xls),*.xls"
FilterIndex = 5
Title = "選擇資料匯入之來源Excel檔"
FileName = Application.GetOpenFilename _
      (FileFilter:=Filt, _
      FilterIndex:=FilterIndex, _
      Title:=Title)
If UCase(FileName) = "FALSE" Then
      MsgBox "No file was selected."
      Exit Sub
End If
xlfileName = Dir(FileName)
而我需要的是  選擇資料夾    進而取得其資料夾名字。
求救於先進們          謝謝

樓主熱帖

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

2^#

發表於 2014-3-22 01:02 | 顯示全部帖子

回復 1# yangjie
自行參考說明自編成如下:
Sub getfolder()
Dim f1 As Object
Set f1 = CreateObject("Scripting.FileSystemObject")
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
      .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
      .FilterIndex = 2
      If .Show = -1 Then
         For Each FileName In .SelectedItems
               FolderName = f1.GetParentFolderName(Path:=FileName)
         Next FileName
      End If
End With
Set f1 = Nothing
Set fd = Nothing
End Sub
但不會設定成只能選一個?  請教教我！

TOP

yangjie