说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在VB中设置当前工作路径和获得当前工作路径都用的很么函数,如何使用。

编辑:说三道四文库 发布时间:2018-07-20 04:54
HTML文档下载 WORD文档下载 PDF文档下载
请大家帮帮忙
不是函数
是变量 如:
    App.title = app_type & "管理"
    appPath = CurDir() & "\"
    appPath = "F:\ys\"
我想知道如何得到当前的工作路径,和设置当前的工作路径。
用CurDir()得到的我一看是vb的安装路径D:\Program Files\Microsoft Visual Studio\VB98
我的工作路径不在这。
请大家指点。
就是用App.path来获取路径的,就是你的可执行程序所在的路径
比如
 set mydb=opendatabase(app.path + "\db.mdb")
你可以写成你的工作路径呀。
如:appPath = "F:\ys\"
说白了就是一个字符变量。
你做安装盘的时候,就应该用appPath = CurDir() & "\"了因为CurDir() 代表的是安装路径。
所以我刚才给你写的这两句:
appPath = CurDir() & "\"
    appPath = "F:\ys\"
第一句是做安装盘的时候用的,用第一句的时候把第二句屏蔽掉。
第二句是调试的时候用的,用第二句的时候把第一句屏蔽掉。
App.Path
Public Function GetAppPath(Optional BlnAddSlash As Boolean = False) As String
'Purpose:得到应用程序所在的路径
'Accepts:BlnAddSlash -是否在路径尾增加"\"
 Dim strPath As String
 strPath = App.Path
 '*关键外部调用:MakePath
  MakePath strPath, BlnAddSlash
 GetAppPath = strPath
 
End Function
'***********************************************************

Public Function MakePath( _
strPath As String, _
Optional BlnAddSlash As Boolean = True, _
Optional StrSlash As String = "\")
'Purpose :If BlnAddSlash then
'         C:\Wind ->c:\wind\
'         else
'         c:\wind\->c:\wind
'***************
'*指定的路径串为空,则退出
If strPath = "" Then Exit Function
'***************
'*删除所有在路径尾部的"\"or"/"
Dim strTemp As String
strTemp = strPath
Do While (Right(strTemp, 1) = "\" Or Right(strTemp, 1) = "/")
    If strTemp <> "" Then
     strTemp = Left(strTemp, Len(strTemp) - 1)
    Else
    Exit Do
    End If
    
Loop
'***************
'*需要增加一个"\","/"?
If BlnAddSlash Then
 strTemp = strTemp & StrSlash
End If
'***************
'*返回结果
strPath = strTemp

End Function
'********************************************
'***********************************************************
'*希望能够对你有所帮助!
'***********************************************************
'*欢迎访问的网站,给我的作品提宝贵意见!
http://www.softboyzhou.com
'*下载EasyDialog:
http://www.softboyzhou.com/download/EasyDialog.asp
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘