急:VB中怎么得到现在程序的完整路径?(在线等) dim strPath as stringstrPath=app.path 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 dim SPath as StringForm_load()Spath=app.pathPicture1.LoadPicture(SPath+"1.bmp")end sub dim Path as stringdim FileNam as string if right(app.path,1)="\" then Path=app.path & filenam else Path=app.path & "\" & filenam end if Private Sub Form_Click()MsgBox App.PathEnd Sub 求达人把VBS转为vb~~谢啦~高分~达人来 求救!!!vb中将日期插入access老是出错!!! 讨论treeview查询数据库的问题? sqlconnect 不支持并行更新 求多元线性回归的算法? 我用FileSystemObject获取硬盘驱动器时怎么提示"active 部件不能创建对象" For Each in和集合的配合使用(半天结贴!) 不知大家注意没有treeview控件的“For Each oNode In treeview1.Nodes”……? 做过 充值缴费系统的朋友 请来帮个忙^ ^ 请问如何让MSChart控件的每一Row的颜色不同? 求助! 在VB中怎样使用滚动条
Spath=app.pathPicture1.LoadPicture(SPath+"1.bmp")
end sub
dim FileNam as string
if right(app.path,1)="\" then
Path=app.path & filenam
else
Path=app.path & "\" & filenam
end if
MsgBox App.Path
End Sub