標題: [發問] 讓屬性隱藏之檔亦在被列出選擇範圍內? [打印本頁]

---

作者: yangjie    時間: 2017-11-10 14:00     標題: 讓屬性隱藏之檔亦在被列出選擇範圍內?

請教諸位大大:
    Filt = "Excel Files (*.xls),*.xls"
    FilterIndex = 5
    Title = "Select a File to Import"
    FileName = Application.GetOpenFilename _
        (FileFilter:=Filt, _
         FilterIndex:=FilterIndex, _
         Title:=Title)
    If FileName = False Then
        MsgBox "No file was selected."
        Exit Sub
    End If
可否讓屬性隱藏之檔亦在被列出選擇範圍內
語法是??
謝謝

---

作者: linyancheng    時間: 2017-11-11 00:19

這應該是Windows的問題。

---

作者: GBKEE    時間: 2017-11-13 13:37

回復 1# yangjie

Application.GetOpenFilename  不能顯示屬性隱藏的檔案
試試看 Dir 的常數

1. 常數 值 描述
   
2. vbNormal 0 (預設) 指定沒有屬性的檔案。.
   
3. VbReadOnly 1 除無屬性的檔案外，另指定唯讀檔案。
   
4. vbHidden 2 除無屬性的檔案外，另指定隱藏檔案。
   
5. vbSystem 4 除無屬性的檔案外，另指定系統檔案。 在Macintosh 中無法使用。
   
6. vbVolume 8 指定標籤檔案；如果指定了其它屬性，vbVolume 將被忽略。 在Macintosh中無法使用。
   
7. vbDirectory 16 除無屬性的檔案外，另指定路徑或檔案夾。
   
8. vbAlias 64 指定的檔名是別名，只在Macintosh上可用。

複製代碼

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim a, Ar()
   
4.     a = Dir("d:\*.*", 2 + 4)
   
5.     If a <> "" Then ReDim Preserve Ar(0): Ar(0) = a
   
6.     Do While a <> ""
   
7.         a = Dir
   
8.         If a <> "" Then
   
9.             ReDim Preserve Ar(UBound(Ar) + 1)
   
10.             Ar(UBound(Ar)) = a
    
11.         End If
    
12.     Loop
    
13.     If Join(Ar, vbLf) <> "" Then MsgBox Join(Ar, vbLf)
    
14. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)