Dim nowpath As String = Application.Startuppath()
创新互联公司是一家专注于成都网站设计、成都网站建设与策划设计,双台子网站建设哪家好?创新互联公司做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:双台子等地区。双台子做网站价格咨询:18980820575
Dim Result As String = nowpath.subString(0,nowpath.LastIndexOf("\"))
debug.writeline(Result)
手打的 若有拼写错误请自行修改
VB进行可视化编程时，需要加窗体，在窗体界面进行操作，FileSystemObject模型来操作，特别简单，举例如下：
1.引用Microsoft Scripting Runtime,//这是一个加载超时的设置，
2. Dim parentPath As String
Dim fso As FileSystemObject
Set fso = New FileSystemObject
parentPath = fso.GetParentFolderName("C:\1\as\text\p")//这是找到上级目录的函数。
3.parentPath 就是你要的结果。
Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
是一种可用于微软自家产品开发的语言。
“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。
“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。
Visual Basic源自于BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
Server.MapPath("~") "\" "Web.config"Server.MapPath("~") 是取当前目录上一级的路径Server.MapPath(".") 是取当前目录的路径
上级目录不可以，但是为了保证程序路径改变，引用不会被破坏。可以有几个方法：
1.将DLL文件放在程序同级目录
2.将DLL文件放在程序子目录
3.将DLL文件放在System32目录下（系统目录，可以直接引用DLL）
4.可以将DLL文件打包成资源文件，融合到EXE程序中，每次执行判断同级目录是否有DLL文件，不存在，释放资源文件。
test.FileName = System.IO.Path.GetDirectoryName(test.FileName) "\" "新的文件名.扩展名"
用两个小数点表示，比如上级目录的abc子目录： ..\abc
一个小数点则表示当前目录，比如当前目录的abc子目录： .\abc ，当然也可以直接 abc
