其
成都創新互聯致力于互聯網品牌建設與網絡營銷,包括成都網站設計、成都網站建設、SEO優化、網絡推廣、整站優化營銷策劃推廣、電子商務、移動互聯網營銷等。成都創新互聯為不同類型的客戶提供良好的互聯網應用定制及解決方案,成都創新互聯核心團隊10多年專注互聯網開發,積累了豐富的網站經驗,為廣大企業客戶提供一站式企業網站建設服務,在網站建設行業內樹立了良好口碑。
FileName
屬性可以取到點擊確定之后的完整路徑地址,是帶文件名的,再利用
System.IO.Path.GetDirectoryName()
方法就可以取到文件夾路徑。
其
InitialDirectory
屬性可以設置打開時默認指向的路徑。
1,點擊“工程-部件”,顯示“部件”對話框,將“Microsoft Common Dialog control 6.0”選中,然后確定。
2,添加工具欄中的CommonDialog控件圖標,將其添加到窗體上。
3,窗體添加Command控件和Text控件,用來瀏覽目錄和保存默認路徑。
4,在Command中添加以下代碼:
Private?Sub?Command1_Click()
CommonDialog1.DialogTitle?=?"選擇保存目錄"
CommonDialog1.Filter?=?"全部文件?(*.*)|*.*"
CommonDialog1.FileName?=?"保存目錄"
CommonDialog1.FilterIndex?=?2
CommonDialog1.ShowSave
If?CommonDialog1.FileName??""?Then
Text1?=?Left(CommonDialog1.FileName,?Len(CommonDialog1.FileName)?-?Len(CommonDialog1.FileTitle))
Open?"C:\path.txt"?For?Output?As?#1
Print?#1,?Text1?'寫入默認保存路徑
Close?#1
End?If
End?Sub
Private?Sub?Form_Load()
On?Error?Resume?Next
If?Dir("C:\path.txt")??""?Then
Open?"C:\path.txt"?For?Input?As?#1?'自動讀出默認保存路徑
Input?#1,?TEMPA
Text1.Text?=?TEMPA
Close?#1
End?If
End?Sub
5,以上代碼就達到TEXT1控件中保存默認保存路徑的目的,Command1點擊選擇時能保存默認路徑到c:\path.txt,程序運行時,自動讀出默認保存路徑。
系統默認的是 當前目錄。
這個當前目錄 我碰到兩種情況。 1、此程序未打開過任何的dialog的話 是和當前工程(exe)在一起。 2、 若打開過dialog 且并未返回當前工程目錄的話,去你上一次dialog中打開的位置去找吧。 一般情況下 為了保證此目錄唯一。 我寫程序時 在啟動后獲取當前(exe所在目錄) 并保存起來。 以后保存文件時 直接加上目錄。免得有的時候 根本不知道保存到哪去了。尤其是調試中 直接中斷程序 導致dialog 未正常返回的時候
當前文章:vb點虐
默認保存路徑 vbnet filestream
網站網址:http://vcdvsql.cn/article48/ddsejhp.html
成都網站建設公司_創新互聯,為您提供營銷型網站建設、小程序開發、網站營銷、商城網站、網站策劃、App設計
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯