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

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

编辑:说三道四文库 发布时间:2017-12-15 08:58
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
腾讯推出零流量地图 离线实现公交步行导航 Atmel 1.4亿美元收购Newport Media 巩固物联网产品线 微信大会首批议程出炉 深度解析招行服务号是如何炼成的? 指尖上的阅读:MIT开发盲人专用设备FingerReader 从桌面到移动:异构计算翻天覆地的技术变革 《近匠》Blueware何晓阳,不做中国的New Relic 全球最杰出的14位程序员 Microsoft、RedHat、IBM、Docker等公司加入Kubernetes社区 Intel携手三星、博通等 建立物联网联盟OIC 一周消息树:微软半年内将终止对Win 7、Office 2010 SP1等产品的支持 深度神经网络DNN的多GPU数据并行框架 及其在语音识别的应用 浪潮通软GSP将打造开放平台 吸引更多ISV加入生态系统 国外安全产品再遭信任危机 安全产品国产化步伐加快 最终幻想XIV的重生--SQUARE ENIX《最终幻想14》制作人吉田直树介绍 如何打造百万级自然增长的微信HTML5应用 听邵海杨聊聊1000+台服务器背后的故事 借助Facebook、Twitter等社交平台API打造超炫酷的那些应用 Unity中Shader的开发运用实战详解,开放报名! 我从独立游戏开发学到的6件事儿 果断Mark!Searchcode——源代码搜索利器 《近匠》图灵机器人:App和移动硬件的智慧大脑 极路由发布HiWiFi OS及应用开放平台 Loom SDK框架:命令行快速开发跨平台2D游戏 安全管家Q2移动安全数据报告:窃取隐私最多 Project Adam vs. Artificial Brain,微软与谷歌角力人工智能 “微信公众平台优秀开发商”征集评选活动正式启动 移动数据库新疆界:开源、Swift、可穿戴... Chromebook侵蚀微软商用PC市场,成绩喜人 2014微信开发者大会议程公布 8月1日前购票8折优惠并赠书 四火的唠叨:也谈谈全栈工程师 图形化与集成趋势 协同软件致远发新品V5.1 显示器不停的开关,进不了图形界面了,急。 打开水晶报表时显示“未将对象引用设置到对象的实例”,只有10分,全部送出 矩形坐标 【那个活活的,玩不玩了?】 怎么判断dbgrid中某个单元格的值是否符合要求 急,在线等,英文作业等着交,就剩160分了全给了!(只能放100分,气死我了) 请问大虾:在那里可下载installshield Professional 7及其东方语言包 怎么样把exe的C#项目文件转换成dll的呀?? 今天Broland来我们公司查盗版软件了,散糞 一个女孩问"你帅吗?" , 你想如何说? 向大家请教一个简单的问题,见笑了 卖书! 请高手来看这里的错误!! 怎么判断窗口移出屏幕了? 我树型的事件脚本不执行?还有几个其它问题。请大家帮帮忙! 我们部门原创的顺口溜 如何判断处理事件和委托 在线等待:寻Delphi7中调用Excel表格打印的源程序 大家好,在线调查 原来asp中的recordset 在.net中还能用吗 “参数不足,期待是1”是什么意思? 如何读取一个文本文件的最后一行 将一表中的所有A列和B列的值(varchar型)合并后,添加到C列中。这个SQL语句怎么写? 请教用公式urlopen如何在“另一窗口“打开一页面。 win2000下如何给程序指定program ID 急,急,在VC中如何.sql文件(ORACLE) 我的DW不能启动了,问题解决马上给分100! 高手请进,在线等待! 下了一个手机游戏(JAR、JAD),想在计算机上模拟运行一下,该怎么做? 使用 应用程序组装工具 创建.ear,创建.war 在WAS中安装出现错误 !!! 立即给分 怎样改变由 javaw 打开的*.jar文件的图标? 纯粹好奇~水园、昨天晚上发生了什么? 为什么修改httpd.conf后,APACHE服务不能启动? 想买两本书,请看过该书的朋友评价一下,特别是书里的代码是C#的还是VB.NET的? win2000注册表问题 什么时候需要定义过程??? 兄弟们,替我出口气 800*600分辨率下,toolbar显示不完整,请问该如何解决?(100分) 我想在数据窗口中显示年龄信息,但是出错了!! 各位大侠,兄弟很急得问题,80分奉送 [ 新手 ] 请问几个关于时间的SQL语句 用ROUND函数,需要包含哪个头文件? 高手请进,在线等待!!! 怎么样用HTML代码实现在一个.htm文件中加载另一个.htm文件 ??? 哪位大哥有能解析ANS.1语言的东西? 比较大小的简单问题? 用Ras拨号过程中,如何取消拨号? 大家看看合适否? 怎样以逗号为标记分段读取内容? 求救:本地计算机无法启动 oracleserviceoradb 服务! java和.net你们好吗?保重VC。 100道,有口算,有递等式计算,解方程, 吸血鬼日记结局是什么,艾琳娜跟谁在一起啦 吸血鬼日记艾琳娜最后会和谁在一起?我想知道大家的看法今天看了第四季第三集,感觉艾琳娜变吸血鬼后变得很高调了.我还是喜欢原来的她.我希望最后艾琳娜和达蒙交往一段时间,不辜负达 那款相机微距摄影比较好(昆虫) 吸血鬼日记第二季21集,艾琳娜的爸爸,为什么会死?替艾琳娜死的? 我是怎么使用《机灵狗故事乐园》那套书的 怎么读? 什么样的人死轻于鸿毛举两个例子、 ______you like to have another try?A.CouldB.WillC.WouldD.Do 一道选择题26.9______!Mary won the first prize in the English reading contestA.Good for youB.Good of youC.Good for herD.Good of her 判断y=x²(x+a)/x+a的奇偶性 新浪微博预热五金博览会叙总统颁特赦令 释放包括反对者在内所外媒称武装分子在叙利亚东北部使用毒气美媒称白宫叫停监听默克尔未获国安局落联赛杯-小豌豆2球贾努扎伊造点 曼联通讯:“让我们侧耳倾听鲸的呼吸”墨总统说在墨投资正是好时机专家:海军三大舰队演习或常态化 促编德媒:北京、上海、成都被美国列入监听韩媒:朝鲜出台相关法律 欲吸引外国投东京股市日经股指上涨1.23%瓦林卡30岁又71天称霸法网:这一战巨大风力发电机亮相福岛 核事故后寄望英国将成立传染病紧急防治专家团 援助曝隆多今夏离开小牛加盟国王 盖伊与他林书豪再扮超级英雄 沙滩上将小弟“踢河北曲周200辆志愿车免费接送高考学石家庄举办草根全明星大赛 草根篮球玩日本政府与在野党就“专守防卫”原则形保加利亚百年玫瑰节迎来中国客中国海军舰艇编队访问意大利 军舰将向《2014年中国人权事业的进展》白皮天龙之无天我的老婆是貂蝉天道殊途重生之冠军足球经理血性男儿逆流三国怒破乾坤傲世三国之纵横雄霸三国异星入侵基因戮天锦江山公园旅游五人墓旅游玄妙观旅游巴亭广场旅游天宫洞旅游斗鸡石旅游白云湖旅游郑州绿博园旅游八里沟旅游广州大学城旅游辛亥革命纪念馆旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘