用UCase函数保障文件操作的正确性

　　 
　　用UCase函数保障文件操作的正确性

    在WIN32平台下，文件名一般为小写字母，但在WIN95平台，有时会出现大写。为保障在WIN32平台下用VB3开发的涉及到文件操作的程序在WIN95平台也能正常工作，可以用UCase函数转换文件名的大小写。

例如：在WIN32平台下用VB3开发一个媒体浏览器，可以用以下程序段实现自动播放，而不论文件的后缀名为大写的“ AVI”、“WAV”、“MID”，还是小写的“ avi”、“wav”、“mid”，还是大小写混合：
　　Sub 1_Click()
　　MMcontrol1.name=1?Path&″″&1.name
　　t=UCase(Right(1?name,3))
　　If t=″AVI″ Or t=″WAV″ Or t=″MID″ Then
　　MMcontrol1.Command=″close″
　　MMcontrol1.Command=″play″
　　End if
　　End Sub

原文转自：http://www.ltesting.net