返回文件路径


\| 网站首页 \| 新闻 \| 新书 \| 专家 \| 技巧 \| 源码作品 \| 工具/资源 \| 商城 \| 风采 \| 留言 \| 论坛 \| 网址 \| 承接 \|

您现在的位置： Access/Office中国 >> 技巧 >> Access >> 模块类函数VBA >> 文章正文

用户登录

新用户注册

返回文件路径

热

返回文件路径

作者：harsonli… 文章来源：第十空间点击数：本日：{$DayHits} 更新时间：2003-12-20 23:08:01

Function GetFilePath(strFileName) As String

'返回路径名称
Dim I As Integer

For I = Len(strFileName) To 1 Step -1
If Mid$(strFileName, I, 1) = "\" Then
GetFilePath = Mid$(strFileName, 1, I)
Exit Function
End If
Next I

GetFilePath = strFileName

End Function

文章录入：tmtony 责任编辑：tmtony

上一篇文章：如何判断二个日期是否为同一月份

下一篇文章：获取文件后缀

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

专题栏目

网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \|
版权所有：中山市天鸣电脑科技站长：tmtony(tmtony@21cn.com) 电话：0760-8564150 QQ:18449932	Access Access access开发 access技巧 access源码 access编程 access文章 access学习 access vba Excel技巧 excel开发 excel编程 Word Outlook Sharepoint Office office等	备案许可证号:粤ICP备05054911号总版主：tmtony zhuyiwen huanghai trynew 竹笛 zhengjialon 海狸先生

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \|
版权所有：中山市天鸣电脑科技站长：tmtony(tmtony@21cn.com) 电话：0760-8564150 QQ:18449932	Access Access access开发 access技巧 access源码 access编程 access文章 access学习 access vba Excel技巧 excel开发 excel编程 Word Outlook Sharepoint Office office等	备案许可证号:粤ICP备05054911号总版主：tmtony zhuyiwen huanghai trynew 竹笛 zhengjialon 海狸先生