Option Explicit
创新互联专注于企业成都全网营销、网站重做改版、梁溪网站定制设计、自适应品牌网站建设、H5响应式网站、商城系统网站开发、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为梁溪等各大城市提供网站开发制作服务。
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
绝对路径是指定的路径,如d:/abc
相对路径:app.path指的是软件所在路径,是可变的,如果软件移动到c盘,那么相对路径就变为c盘。
在VB 学习中,绝对路径就是指带有盘符的固定的路径,比如“c:\windows\systems\a.exe” 而相对路径则可用APP.PATH连接文件名来表示,比如:App.Path "\a.exe"
以vb学习中加载图片为例,这样就容易弄明白了。假设我们要在vb中加载一幅图片,假设我们把这个加载图片的程序保存在如下位置:"E:\aa-vbnew\加载图片讲解"而我们的图片在"D:\My Files\图画\tong.jpg"
那么情况如下:1,在代码中直接以绝对路径表示加载到form1中,如图所示:
显示结果如下:
2,换一种方式,以相对路径直接加载也可以。程序如图:
结果如上图。
下面分析如下:
第一种方式,我们使用的是图片的完整路径,就称之为绝对路径,也就是说不管我们的这个VB程序放到硬盘的任何位置,都完全可以显示出来这幅图片,因为图片的路径是绝对的,只要不改变图片的路径,那么就是绝对不变的。
第二种方式,我们使用的是图片的相对路径,相对于谁呢?是相对于我们的VB这个应用程序和这幅图片自身位置的。一旦我们的程序位置发生变化或者图片的位置发生改变,那么这个程序都不可以执行,不会显示这幅图片。所以说这就是相对路径,是以一个参考对象而存在的。
app.path是VB6中的用法.
vb2010属于VB.Net,VB.Net中使用如下方法:
Application.StartupPath
'获取当前程序路径,如果你的程序在C:\App\,结果为
C:\App
AppDomain.CurrentDomain.SetupInformation.ApplicationBase
'获取当前程序路径,如果你的程序在C:\App\,结果为
C:\App\
'后者比前者的结果会多一个"\"
你这个才是叫绝对路径
绝对路径是指文件所在的全部路径,简而言之就是
绝对路径包括了
盘符
文件夹
文件等。
相对路径
只是指你源程序所在的文件夹为根目录
举个例子
E:\zhangna\zuoye\6\双向词典.mdb"
这个就是绝对路径了
而
在程序里面调用如
zuoye\6\双向词典.mdb
这样才是叫相对路径
(假如你的程序是在e:\zhangna下面)
vb中获得相对路径的代码是app.path
假如你的程序是在e:\zhangna下面
哪么用代码
app.path
"\zuoye\6\双向词典.mdb"
这段代码和你用的路径是一样的,但是用相对路径的好处就是,你的数据库可以不限定在那个盘
只要求限定是在你的源程序的目录下面就可以了
path=mid(wscript.scriptfullname,1,len(wscript.scriptfullname) - instr(1,strreverse(wscript.scriptfullname),"\") + 1)
msgbox path,,"你的存储路径是:"
这样可以获取文件存储的绝对路径,并且用msgbox显示出来