VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用UCase函数保障文件操作的正确性
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9169, 日期:2001-05-11
用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