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

VB取得长文件名

HTML文档下载 WORD文档下载 PDF文档下载
VB取得长文件名
Public Function GetLongFilename (ByVal sShortName As String) As String

Dim sLongName As String
Dim sTemp As String
Dim iSlashPos As Integer

'Add \ to short name to prevent Instr from failing
sShortName = sShortName & "\"

'Start from 4 to ignore the "[Drive Letter]:\" characters
iSlashPos = InStr(4, sShortName, "\")

'Pull out each string between \ character for conversion
While iSlashPos
sTemp = Dir(Left$(sShortName, iSlashPos - 1), _
vbNormal + vbHidden + vbSystem + vbDirectory)
If sTemp = "" Then
'Error 52 - Bad File Name or Number
GetLongFilename = ""
Exit Function
End If
sLongName = sLongName & "\" & sTemp
iSlashPos = InStr(iSlashPos + 1, sShortName, "\")
Wend

'Prefix with the drive letter
GetLongFilename = Left$(sShortName, 2) & sLongName

End Function

C#启动、停止、重启Windows服务 jQuery实现Ajax提交form表单的简单方法 字符串String与枚举Enum之间的转换[C#] Javascript统计DOM元素里文字的行数 C#从Web网站下载文件 刚刚学VB 大家帮帮我 在DOS里面能实现MP3等的播放吗? BCGControlBar Professional和Xtreme Toolkit 的问题! 使用SQL Server 2000 + ASP 出现诡异的问题,SOOOOOOOOS 一度迷失的程序员之感悟 刚学sql server2000就遇到这种问题,帮帮我啊! 数据排序问题? 请问怎么吧自己打包生成的安装文件的图标换成自己想要的图象而不是默认的那个电脑图象 我的机器怎么进不去BIOS,急急急!!!!! 我爸今天去世了,求英语高手帮我写封信通知他外国的朋 “今天我看了《xx》的第几集”“今天《xx》更新了 fell,fight,get,give,had,h 请写出go,work,have,come,do,m have/has.find.come tell过去 英语动词在什么时候下变现在分词 英语写出下列动词的现在分词形式1.shop 2.h 写出下列动词的现在分词.(英语) 谁能告诉我英语中动词的现在分词怎么变换有关英语 美专家:进口产品及食品易导致美国儿童俄空降兵部队摸黑赶路不慎引爆炸弹 致日本“无性症候群”涌现 恐陷“绝种”报告称美国600万年轻人无所事事 不安倍7小时长会后品尝软柿子 满足称“时尚先生全球最佳设计展盛大启帷中国7艘海警船今巡钓鱼岛 日本派7舰CNNIC正式回应.CN域名遭遇攻击两性养生:年轻人对避孕的五大误解【组马英九步步进逼 王金平:我的心情很平破天炮灰生存手册杀戮空间丧尸游戏异界之风流邪君古代建筑博物馆旅游上清宫旅游盖斯墓旅游钻石水道旅游措木及日湖旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘