app path（VB中app.path怎么用）

本文目录

• VB中app.path怎么用
• VB中用到了 “App.Path” 是一个变量吧
• VB里app.path是什么意思.该怎么用呢
• app.path是什么意思
• app.path 是什么意思

VB中app.path怎么用

以下是app.path在VB中的具体用法：

材料/工具：电脑、vb6

1、启动vb6后，从弹出的新建工程对话框中选择标准exe文件，点击打开按钮。

2、适当调整窗体的大小，执行工程-部件命令，从部件对话框中选择Windows media player，点击确定按钮，将其加载到控件箱中。

3、接着双击控件箱中Windows media player控件，在窗体上创建一个对象。

4、调整Windows media player控件的大小和位置，双击创建进入代码区域，对象设置为form，过程设置为load。

5、输入代码，代码内容为：WindowsMediaPlayer1.URL = App.Path + "音乐\甜蜜蜜.mp3"。

6、执行文件-保存工程命令，按照提示信息依次保存工程和窗体到vb加载音乐文件夹中。

7、执行文件-生成工程命令，输入名称为vb加载音乐，双击该文件试听效果。

VB中用到了 “App.Path” 是一个变量吧

app.path 是代表当前路径，在VB中特有的写法。它不能够作为变量来定义的。Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long 函数功能及参数说明： SHGetSpecialFolderLocation：获得某个特殊目录在特殊目录列表中的位置；它有三个参数，第一个参数是用来指定所有者窗口的，在应用中一般我们写上"0"就可以了；第二个参数是一个整数id，它决定要查找的目录是哪一个目录，它的取值可能如下： &H0& ’桌面 &H2& ’程序集 &H5& ’我的文档 &H6& ’收藏夹 &H7& ’启动 &H8& ’最近打开的文件 &H9& ’发送 &HB& ’开始菜单 &H13& ’网上邻居 &H14& ’字体 &H15& ’ShellNew &H1A& ’Application Data &H1B& ’PrintHood &H20& ’网页临时文件 &H21& ’Cookies目录 &H22& ’历史 第三个参数是获得的特殊目录在特殊目录列表中的地址。 SHGetPathFromIDList：根据某特殊目录在特殊目录列表中的地址获取该目录的准确路径。它有两个参数，第一个参数是特殊目录在特殊目录列表中的地址，也即上一个函数所获得的地址；第二个参数是一个字符串型数据，用来保存返回的特殊目录的准确路径。 比如：为了获得DeskTop的路径，首先需调用SHGetSpecialFolderLocation获得DeskTop在特殊目录列表中的位置Pid，然后调用SHGetPathFromIDList函数获得Pid指向的列表内容，即DeskTop的准确路径。 下面是我编写的一个用来获取Windows各种目录路径的例子，供大家参考。如果您有什么问题或建议，欢迎给我来信(xuhaoliang@21cn.com)。 程序界面如下： ­ 程序代码如下： Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Const MAX_LEN = 200 ’字符串最大长度 Const DESKTOP = &H0& ’桌面 Const PROGRAMS = &H2& ’程序集 Const MYDOCUMENTS = &H5& ’我的文档 Const MYFAVORITES = &H6& ’收藏夹 Const STARTUP = &H7& ’启动 Const RECENT = &H8& ’最近打开的文件 Const SENDTO = &H9& ’发送 Const STARTMENU = &HB& ’开始菜单 Const NETHOOD = &H13& ’网上邻居 Const FONTS = &H14& ’字体 Const SHELLNEW = &H15& ’ShellNew Const APPDATA = &H1A& ’Application Data Const PRINTHOOD = &H1B& ’PrintHood Const PAGETMP = &H20& ’网页临时文件 Const COOKIES = &H21& ’Cookies目录 Const HISTORY = &H22& ’历史 Private Sub Command2_Click() End End Sub Private Sub Form_Load() Dim sTmp As String * MAX_LEN ’存放结果的固定长度的字符串 Dim nLength As Long ’字符串的实际长度 Dim pidl As Long ’某特殊目录在特殊目录列表中的位置 ’*************************获得Windows目录********************************** Length = GetWindowsDirectory(sTmp, MAX_LEN) txtWin.Text = Left(sTmp, Length) ’*************************获得System目录*********************************** Length = GetSystemDirectory(sTmp, MAX_LEN) txtSystem.Text = Left(sTmp, Length) ’*************************获得Temp目录*********************************** Length = GetTempPath(MAX_LEN, sTmp) txtTemp.Text = Left(sTmp, Length) ’*************************获得DeskTop目录********************************** SHGetSpecialFolderLocation 0, DESKTOP, pidl SHGetPathFromIDList pidl, sTmp txtDesktop.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得发送到目录********************************** SHGetSpecialFolderLocation 0, SENDTO, pidl SHGetPathFromIDList pidl, sTmp txtSendTo.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得我的文档目录********************************* SHGetSpecialFolderLocation 0, MYDOCUMENTS, pidl SHGetPathFromIDList pidl, sTmp txtDocument.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得程序集目录*********************************** SHGetSpecialFolderLocation 0, PROGRAMS, pidl SHGetPathFromIDList pidl, sTmp txtProgram.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得启动目录************************************* SHGetSpecialFolderLocation 0, STARTUP, pidl SHGetPathFromIDList pidl, sTmp txtStart.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得开始菜单目录********************************* SHGetSpecialFolderLocation 0, STARTMENU, pidl SHGetPathFromIDList pidl, sTmp txtStartMenu.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得收藏夹目录*********************************** SHGetSpecialFolderLocation 0, MYFAVORITES, pidl SHGetPathFromIDList pidl, sTmp txtFavorites.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’**********************获得最后打开的文件目录******************************* SHGetSpecialFolderLocation 0, RECENT, pidl SHGetPathFromIDList pidl, sTmp txtRecent.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得网上邻居目录********************************* SHGetSpecialFolderLocation 0, NETHOOD, pidl SHGetPathFromIDList pidl, sTmp txtNetHood.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得字体目录********************************** SHGetSpecialFolderLocation 0, FONTS, pidl SHGetPathFromIDList pidl, sTmp txtFonts.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得Cookies目录********************************** SHGetSpecialFolderLocation 0, COOKIES, pidl SHGetPathFromIDList pidl, sTmp txtCookies.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得历史目录********************************** SHGetSpecialFolderLocation 0, HISTORY, pidl SHGetPathFromIDList pidl, sTmp txtHistory.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’***********************获得网页临时文件目录******************************* SHGetSpecialFolderLocation 0, PAGETMP, pidl SHGetPathFromIDList pidl, sTmp txtPageTmp.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得ShellNew目录********************************* SHGetSpecialFolderLocation 0, SHELLNEW, pidl SHGetPathFromIDList pidl, sTmp txtShellNew.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’***********************获得Application Data目录***************************** SHGetSpecialFolderLocation 0, APPDATA, pidl SHGetPathFromIDList pidl, sTmp txtAppData.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) ’*************************获得PrintHood目录********************************* SHGetSpecialFolderLocation 0, PRINTHOOD, pidl SHGetPathFromIDList pidl, sTmp txtPrintHood.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1) End Sub

VB里app.path是什么意思.该怎么用呢

app.path是一个相对路径APP就是应用程序本身path就是路径其意思就是应用程序所在的路径也就是应用程序自己所在的路径他之所以是相对路径是指:无论你的应用程序在哪个盘,哪个位置,只要你在程序中使用了APP.PATH那么他返回的都是当前应用程序存在的路径.

app.path是什么意思

程序开启文件时，若没有指定文件的目录，则所开启的将是「目前目录」的文件，但目前目录是经常改变的，如果指定目录，则将来安装程序时，被开启的文件必须安装于指定目录中，比较没有弹性。　　解决以上问题的方法利用以下方法开启文件：　　Open App.Path + "\" + "文件名称" For ┅　　并且将被开启的文件与可执行文件放在同一目录即可，因为 App.Path 所代表的就是应用程序所在的目录。不过使用App.Path有一件事情要特别注意，当App.Path 位于根目录时，则App.Path最右边的字符为"\"，例如"c:\"，但如果App.Path不在根目录，则App.Path 最右边的字符不为"\"，例如"d:\kj\app1"，因此欲求取应用程序所在目录某一文件的完整路径名称，应该使用以下方法：　　Dim fullpath As String　　If Right(App.Path, 1) = "\" Then ’ 若 App.Path 为根目录　　fullpath = App.Path + "文件名称"　　Else　　fullpath = App.Path + "\" + "文件名称"　　End If　　’ fullpath 等于 "文件名称" 的完整路径名称　　来源:SEO基地　　当某一程序下有多个相同的文件时，比如"e:\ksxt"目录下有多个要找个相同的文件，这时候系统就会按照一定的顺序找到第一个文件，并当做目前需要使用的文件，所以，这种情况下，最好使该目录下只有这一个文件。正是如此，使用未来教育软件做计算机二级考题的同学们做到类似的问题，总会报错，说输入超出文件尾，那是找错了文件，只要把文件的完整的目录打上，就不会报错了。

app.path 是什么意思

a.CreateFolder (App.Path & "\新建文件夹") ‘在当前文件夹中创建“新建文件夹”f a.FolderExists(App.Path & "\新建文件夹") Then ‘检查文件夹是否存在，App.path是指当前文件夹