正在阅读：vb高手搜集-常见问题总结4(终章)vb高手搜集-常见问题总结4(终章)

2005-06-20 09:59 出处：作者：阳光宝宝责任编辑：moningfeng

五、如何判断目前文件资源管理器中，文件名称之扩展文件名是显示或隐藏 　　由于我在集团性的资讯处工作，所负责的公司系统有的是属于外点，例如润泰建设有个单位是行销业务处，他们的工作是卖公司盖的房子，所以他们的业务人员平常都是待在各工地的接待中心，我替他们开发的销售系统在工地的部份是属于单机作业的，使用 Access 资料库，每一个星期资料回传总公司一次。　　业务人员由于流动性大，不太了解系统，有时候，系统出了问题，业务人员又搞不清楚状况，于是我会要求他们将资料库 sale.mdb 回传公司，结果，常闹笑话，原来他们回传公司的，常常不是 sale.ldb 就是 sale.exe，为什么呢？　　原因很简单，因为他们的文件资源管理器中，设定了将扩展文件名隐藏起来，结果只看到三个不同图示的 sale 文件 (分别是 Sale.mdb、Sale.ldb、Sale.exe)，不太会操作的业务人员根本分不清楚那一个图示的 sale 文件才是资料库文件案！　　我们在 VB 的程序中要如何判断，目前文件资源管理器中的设定是否显示扩展文件名呢？

　　Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer 　　Private Function HasExtension(sFileName As String) As Long 　　Dim sTemp As String 　　Dim lTemp As Long 　　sTemp = String(1, 0) 　　lTemp = GetFileTitle(sFileName, sTemp, Len(sTemp)) 　　If lTemp < 0 Then HasExtension = -1: Exit Function 　　sTemp = String(lTemp, 0) 　　Call GetFileTitle(sFileName, sTemp, Len(sTemp)) 　　If (Left$(Right$(Left$(sTemp, lTemp - 1), 4), 1)) = "." Then 　　HasExtension = 1 　　Else 　　HasExtension = 0 　　End If 　　End Function

　　若有显示扩展文件名，返回值是 1，否则返回0。