山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

例子代码：判断文件路径是否合法

楼主enmity（灵感之源）2002-03-13 23:41:21 在 VB / 基础类提问

Public Function IsFilePathValid(sFilePath As String, Optional bExists As Boolean = False) As Boolean

On Error GoTo handleError

sFilePath = Trim(sFilePath)
If sFilePath = "" Then
IsFilePathValid = False
Else
If Len(sFilePath) < 4 Then 'c:\t
IsFilePathValid = False
Else
If Mid(sFilePath, 2, 2) <> ":\" Then
IsFilePathValid = False
Else
If sFilePath Like "*\" Then
IsFilePathValid = False
Exit Function
Else
End If

If bExists Then
If GetAttr(sFilePath) And vbDirectory Then
IsFilePathValid = False
Exit Function
End If
If Not IsFileExists(sFilePath) Then
IsFilePathValid = False
Exit Function
End If
End If

IsFilePathValid = True
End If
End If
End If

Exit Function

handleError:
IsFilePathValid = False

End Function

问题点数：30、回复次数：16Top

1 楼ttyp（@http://www.cnblogs.com/ttyp/）回复于 2002-03-13 23:44:53 得分 2

全部收到，哈哈Top

2 楼ttyp（@http://www.cnblogs.com/ttyp/）回复于 2002-03-13 23:45:14 得分 0

全部收到，哈哈Top

3 楼visualbaby（好好学习天天向上）回复于 2002-03-14 00:23:41 得分 2

边抢分，边学习！！！
好好学习，天天向上！！！Top

4 楼tg123（T.G.）回复于 2002-03-14 01:38:02 得分 2

收藏Top

5 楼Mike_sun（漠风）回复于 2002-03-14 05:53:45 得分 2

heheTop

6 楼xdd1125（成长快乐）回复于 2002-03-14 08:17:12 得分 2

upTop

7 楼enmity（灵感之源）回复于 2002-03-14 13:56:01 得分 0

希望对大家有帮助Top

8 楼tony_jian（晕了）回复于 2002-03-14 14:28:17 得分 2

收!Top

9 楼enmity（灵感之源）回复于 2002-03-14 22:20:15 得分 0

upTop

10 楼wgku（云霄）回复于 2002-03-14 22:42:09 得分 2

真是好人啊。。。。。Top

11 楼LiaoCheng（光辉岁月>>www.vod-online.net）回复于 2002-03-14 23:27:45 得分 6

如果是网络路径就不行吧，比如：\\ntserver\folder\bb.txt
Top

12 楼LiaoCheng（光辉岁月>>www.vod-online.net）回复于 2002-03-14 23:28:37 得分 0

只是因为我经常用到网络路径所以才想到!!Top

13 楼vivan19781111（vivan kaici）回复于 2002-03-15 08:36:44 得分 2

不错，谢谢！
Top

14 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2002-03-15 08:55:56 得分 2

haoTop

15 楼baresi（定海神针）回复于 2002-03-15 11:05:44 得分 2

u pTop

16 楼Alsen（大闸蟹(恶人谷水产局局长)）回复于 2002-03-15 11:16:35 得分 2

谢谢！
Top