返回列表 上一主題 發帖

目錄檔名問題

g93353

帖子
40 
主題
17 
精華
0 
積分
62 
點名
0  
作業系統
windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-27 
最後登錄
2014-11-18 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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 這樣就好

麻煩各位解答>"<
收藏 分享
WOW

g93353

帖子
40 
主題
17 
精華
0 
積分
62 
點名
0  
作業系統
windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-27 
最後登錄
2014-11-18 
5#
發表於 2012-2-17 11:39 | 只看該作者
已解決  也謝謝 GBKEE 的回覆!!!
WOW

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 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
複製代碼

TOP

g93353

帖子
40 
主題
17 
精華
0 
積分
62 
點名
0  
作業系統
windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-12-27 
最後登錄
2014-11-18 
3#
發表於 2012-2-14 16:25 | 只看該作者
謝謝版主!!!!!!!
WOW

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
244  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-10 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-2-14 16:19 | 只看該作者
回復 1# g93353


    Filenames = Application.GetOpenFilename("Text-Files,*.txt")
Set fdo = CreateObject("Scripting.FilesystemObject")
MsgBox fdo.GetParentFolderName(Filenames)
學海無涯_不恥下問

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題