［上一页］（50）［下一页］

246、您知道 Microsoft 不再支持那些 VB 的版本吗？

Microsoft 的每一个软件，一年一年的推出新版本，但是并不会立刻就不支持旧的版本，通常都是新旧并行，而且我认为有一点点可恶的是，通常 Microsoft 推出新版本的同时，却还是继续卖旧的版本！

但是对于旧版本的支持并不是永久的，一段时间之后， Microsoft 就会宣判某一个软件的某一个版本死刑！并且将这些资讯公布在 Microsoft product support services 的网页上。

您知道到目前 (88.12.24) 为止，有那些 Microsoft 的软件被判死刑了吗 (指 Microsoft 技术中心不再支持)？列表如下，您看看有没有您还在使用的软件版本，如果有的话，该准备升级了！

247、您知道 Microsoft 不再更新 COMCTL32, COMCT232, MSChart 三个控制项的新版本了吗？

当您从 VB5 升级到 VB6 时，或许您会注意到 COMCTL32.OCX, COMCT232.OCX, MSChart.OCX 三个控制项的版本仍然是 5.0(SP2)，刚开始，我以为 Microsoft 不再升级这三个控制项了，不过我错了！

这三个控制项有升级的版本，但是 Microsoft 改变了它们的文件名称、介面，
而且，在您将项目从 VB5 升级到 VB6 时，VB6 也不会主动升级这些控制项！

它们的新旧文件名对照如下：

现在请勿马上动手开始修改程序，如果您想手动 Upgrade 这些控制项到新的版本，您一定会后悔！因为在您手动 Upgrade 之后，您一执行就会出现错误讯息！而且是没有说明按钮的错误讯息！

现在，在 Microsoft 的网站上有提供一个升级工具程序，叫做 ActiveX Control Upgrade Utility，它会侦测您的项目，并自动 Upgrade 这些应该升级的控制项！它很容易使用，而且效果很好，如果您想知道更多的讯息，或想下载这个工具程序，可以到以下这个网址去：

http://msdn.microsoft.com/vbasic/downloads/axupgrade.asp

在这里，您也可以直接下载这个工具程序：

注：如果您不想看 Microsoft 的英文说明，我将它翻译在下面好了：

Visual Basic, Version 6.0, ActiveX Control Upgrade Utility

这个升级工具会将您以前使用 VB5.0 及较早前发行的 VB6.0 版本开发的项目，其中较旧版本的 ActiveX 控制项升级到目前的 VB6.0 最新版本的 ActiveX 控制项，它可以升级的控制项包括以下三个：

如果在您开发的项目中，不包含以上三个控制项，那么它什么也不会做！
( 意思就是说，如果项目中，不含以上三个控制项，您根本就不用使用这个升级工具 )

在您使用升级工具将项目转换完成后，以上三个控制项会变成：

要特别注意的是，在转换前最好先备份您用 VB5 开发的项目！且不要使用 binary compatibility 转换！

248、如何建立多级目录

Sub CreateLongDir(sDrive As String, sDir As String)
Dim sBuild As String

While InStr(2, sDir, "\") > 1
sBuild = sBuild & left(sDir, InStr(2, sDir, "\") - 1)
sDir = Mid(sDir, InStr(2, sDir, "\"))
If Dir(sDrive & sBuild, 16) = "" Then
MkDir sDrive & sBuild
End If
Wend
End Sub

249、如何从全路径名中提取文件名

Function StripPath(T$) As String
Dim x%, ct%
StripPath$ = T$
x% = InStr(T$, "\")
Do While x%
ct% = x%
x% = InStr(ct% + 1, T$, "\")
Loop
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
End Function
例子：
File = StripPath("c:\windows\hello.txt")

250、如何检测文件是否存在

Function FileExists(FileName As String) As Boolean
On Error Resume Next
FileExists = Dir$(FileName) <> ""
If Err.Number <> 0 Then
FileExists = False
End If
On Error GoTo 0
End Function

［上一页］（50）［下一页］