13518219792
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显示出来
