其
專(zhuān)注于為中小企業(yè)提供做網(wǎng)站、成都做網(wǎng)站服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)鼓樓免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了上千家企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
FileName
屬性可以取到點(diǎn)擊確定之后的完整路徑地址,是帶文件名的,再利用
System.IO.Path.GetDirectoryName()
方法就可以取到文件夾路徑。
其
InitialDirectory
屬性可以設(shè)置打開(kāi)時(shí)默認(rèn)指向的路徑。
見(jiàn)上圖,用鼠標(biāo)按照上述三個(gè)步驟先后次序,一一單擊進(jìn)行選擇和設(shè)置,“生成輸出路徑”。
那么,在你的程序代碼里使用:
MsgBox(Application.StartupPath)
顯示的就是,你的當(dāng)前默認(rèn)的相對(duì)路徑。
直接賦值即可 因?yàn)槁窂绞亲址?。lj="路徑"將上面的“路徑”改為需要的文件所在的路徑即可
一種采用絕對(duì)路徑比如"provider=Microsoft.jet.oledb.4.0;Data source= c:/xxx/AAA.mdb"
第二種采用當(dāng)前exe所在路徑
"provider=Microsoft.jet.oledb.4.0;Data source= “+Application.StartupPath + "\\"+”AAA.mdb"
因?yàn)椴幻靼啄銌?wèn)題的用意,只能這么回答你了。
絕對(duì)路徑是指在文件標(biāo)識(shí)符的位置,應(yīng)該包含了從磁盤(pán)驅(qū)動(dòng)器符號(hào)開(kāi)始的所有完整路徑。那么相對(duì)路徑只需要在文件標(biāo)識(shí)符的位置,包含斜杠 加 文件名就可以了。
相對(duì)路徑,其實(shí)是指從相對(duì)于當(dāng)前文件夾而言。
用Directory.CreateDirectory即可創(chuàng)建文件夾:
'?建立目錄
If?Not?Directory.Exists("C:\負(fù)屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在
Directory.CreateDirectory("C:\負(fù)屃\"??TextBox1.Text)??'不存在,創(chuàng)建文件建夾
End?If
你的例子是因?yàn)樯倭艘粋€(gè)"\"引起的,正確的如下:
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\負(fù)屃\"??TextBox1.Text)?=?False?Then
fsotest.CreateFolder("C:\負(fù)屃\"??TextBox1.Text) '這里你少了一個(gè)\
End?If
MsgBox("創(chuàng)建成功")