新来报到,为大家送上Access技巧.

tomzy

希望大家共同努力吧.

[upload=doc]http://www.office-cn.net/vvb/uploadimages/20026101523048193.doc[/img]

huanghai

好，收藏了！

tmtony

非常好的例子，谢谢啦
我原来一直在写一个代码管理软件，最近zhuyiwen推荐给我微软的code librarian. 前几天在OFFICE 开发技术大会上见识了它的功能，觉得它的比我的好用，我想以后网站所有的源码和技巧都用它来管理。对代码的分类和管理非常方便，这样大家就可统一代码交换方式

yahai

hao a

cg1

‘检查指定文件是否存在
***************** Code Start *******************
Function fIsFileDIR(stPath As String, _
                    Optional lngType As Long) _
                    As Integer
'Fully qualify stPath
'To check for a file
'   ?fIsFileDIR("c:\winnt\win.ini")
'To check for a Dir
'   ?fIsFileDir("c:\msoffice",vbdirectory)
'
    On Error Resume Next
    fIsFileDIR = Len(Dir(stPath, lngType)) > 0
End Function
'***************** Code End *********************
检测网络文件时会出现文件号错误

xir

XieXie!!!

程序人生

好东西！！！

zhuangshi

好好好

camplus

谢谢!!

mamasheng

感謝分享！