標題: 目錄檔名問題 [打印本頁]

---

作者: g93353    時間: 2012-2-14 14:22     標題: 目錄檔名問題

小弟爬過些文章

查到的幾乎都是讀取單一目錄下的所有檔案名稱

這裡是簡單OpenFile的兩行程式

fileNames = Application.GetOpenFilename("Text-Files,*.txt")

TextBox1.Text = fileNames

選取text.txt檔案後

TextBox1.Text 顯示出目錄名稱  EX  :   C:\Documents and Settings\host\桌面\Paper\text.txt

小弟想請問一下  如何在選取text.txt之後 讓TextBox1.Text 只顯示出目錄名稱就好 而不包含所選取的檔案名稱

也就是 C:\Documents and Settings\host\桌面\Paper 這樣就好

麻煩各位解答>"<

---

作者: Hsieh    時間: 2012-2-14 16:19

回復 1# g93353


    Filenames = Application.GetOpenFilename("Text-Files,*.txt")
Set fdo = CreateObject("Scripting.FilesystemObject")
MsgBox fdo.GetParentFolderName(Filenames)

---

作者: g93353    時間: 2012-2-14 16:25

謝謝版主!!!!!!!

---

作者: GBKEE    時間: 2012-2-14 16:34

回復 1# g93353

1. Sub Ex()   
   
2.     Filenames = Application.GetOpenFilename("Text-Files,*.txt")
   
3.     Filenames = Mid(Filenames, 1, InStrRev(Filenames, "\") - 1)
   
4. End Sub

複製代碼

---

作者: g93353    時間: 2012-2-17 11:39

已解決  也謝謝 GBKEE 的回覆!!!

---

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