Option Explicit

創(chuàng)新互聯(lián)專注于企業(yè)成都全網(wǎng)營(yíng)銷、網(wǎng)站重做改版、梁溪網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5響應(yīng)式網(wǎng)站、商城系統(tǒng)網(wǎng)站開(kāi)發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性價(jià)比高,為梁溪等各大城市提供網(wǎng)站開(kāi)發(fā)制作服務(wù)。
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Const max_path = 260
Private Const max_path1 = 261
Private Sub Command1_Click()
Dim sysdir As String
Dim chrlen As Long
Dim windir As String
' 獲得system路徑
sysdir = Space(max_path)
chrlen = GetSystemDirectory(sysdir, max_path)
If chrlen max_path Then chrlen = GetSystemDirectory(sysdir, chrlen)
sysdir = Left(sysdir, chrlen)
' 獲得windows路徑
windir = Space(max_path)
chrlen = GetWindowsDirectory(windir, max_path)
If chrlen max_path Then chrlen = GetWindowsDirectory(windir, chrlen)
windir = Left(windir, chrlen)
' 在窗體上顯示system路徑
Label1.Caption = "system的路徑為: " sysdir
' 在窗體上顯示windows路徑
Label2.Caption = "windows的路徑為: " windir
End Sub
絕對(duì)路徑是指定的路徑,如d:/abc
相對(duì)路徑:app.path指的是軟件所在路徑,是可變的,如果軟件移動(dòng)到c盤,那么相對(duì)路徑就變?yōu)閏盤。
在VB 學(xué)習(xí)中,絕對(duì)路徑就是指帶有盤符的固定的路徑,比如“c:\windows\systems\a.exe” 而相對(duì)路徑則可用APP.PATH連接文件名來(lái)表示,比如:App.Path "\a.exe"
以vb學(xué)習(xí)中加載圖片為例,這樣就容易弄明白了。假設(shè)我們要在vb中加載一幅圖片,假設(shè)我們把這個(gè)加載圖片的程序保存在如下位置:"E:\aa-vbnew\加載圖片講解"而我們的圖片在"D:\My Files\圖畫\tong.jpg"
那么情況如下:1,在代碼中直接以絕對(duì)路徑表示加載到form1中,如圖所示:
顯示結(jié)果如下:
2,換一種方式,以相對(duì)路徑直接加載也可以。程序如圖:
結(jié)果如上圖。
下面分析如下:
第一種方式,我們使用的是圖片的完整路徑,就稱之為絕對(duì)路徑,也就是說(shuō)不管我們的這個(gè)VB程序放到硬盤的任何位置,都完全可以顯示出來(lái)這幅圖片,因?yàn)閳D片的路徑是絕對(duì)的,只要不改變圖片的路徑,那么就是絕對(duì)不變的。
第二種方式,我們使用的是圖片的相對(duì)路徑,相對(duì)于誰(shuí)呢?是相對(duì)于我們的VB這個(gè)應(yīng)用程序和這幅圖片自身位置的。一旦我們的程序位置發(fā)生變化或者圖片的位置發(fā)生改變,那么這個(gè)程序都不可以執(zhí)行,不會(huì)顯示這幅圖片。所以說(shuō)這就是相對(duì)路徑,是以一個(gè)參考對(duì)象而存在的。
app.path是VB6中的用法.
vb2010屬于VB.Net,VB.Net中使用如下方法:
Application.StartupPath
'獲取當(dāng)前程序路徑,如果你的程序在C:\App\,結(jié)果為
C:\App
AppDomain.CurrentDomain.SetupInformation.ApplicationBase
'獲取當(dāng)前程序路徑,如果你的程序在C:\App\,結(jié)果為
C:\App\
'后者比前者的結(jié)果會(huì)多一個(gè)"\"
你這個(gè)才是叫絕對(duì)路徑
絕對(duì)路徑是指文件所在的全部路徑,簡(jiǎn)而言之就是
絕對(duì)路徑包括了
盤符
文件夾
文件等。
相對(duì)路徑
只是指你源程序所在的文件夾為根目錄
舉個(gè)例子
E:\zhangna\zuoye\6\雙向詞典.mdb"
這個(gè)就是絕對(duì)路徑了
而
在程序里面調(diào)用如
zuoye\6\雙向詞典.mdb
這樣才是叫相對(duì)路徑
(假如你的程序是在e:\zhangna下面)
vb中獲得相對(duì)路徑的代碼是app.path
假如你的程序是在e:\zhangna下面
哪么用代碼
app.path
"\zuoye\6\雙向詞典.mdb"
這段代碼和你用的路徑是一樣的,但是用相對(duì)路徑的好處就是,你的數(shù)據(jù)庫(kù)可以不限定在那個(gè)盤
只要求限定是在你的源程序的目錄下面就可以了
path=mid(wscript.scriptfullname,1,len(wscript.scriptfullname) - instr(1,strreverse(wscript.scriptfullname),"\") + 1)
msgbox path,,"你的存儲(chǔ)路徑是:"
這樣可以獲取文件存儲(chǔ)的絕對(duì)路徑,并且用msgbox顯示出來(lái)
網(wǎng)頁(yè)名稱:vb.net程序絕對(duì)路徑,vbs 相對(duì)路徑
分享路徑:http://chinadenli.net/article17/dsgodgj.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站策劃、響應(yīng)式網(wǎng)站、網(wǎng)站維護(hù)、網(wǎng)站制作、移動(dòng)網(wǎng)站建設(shè)、云服務(wù)器
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)