當知道一個指定路徑下的文件名,但不知道文件類型的時候,怎麼去驗證文件是否存在.
怎麼去獲得文件類型.
fso.FileExists(app)
app 必須要加文件類型, 如 elec.xls 或  elec.doc 才可以.
為什麼直接用elec 不行呢.
如果我知道了類型,那fso.GetExtensionName(app)還有什麼意義各位高手幫幫忙,怎麼才能不用擴展名也可以驗證和取文件擴展名

解决方案 »

  1.   

    Private Sub Form_Load()MyPath = "c:\WINDOWS\"
    FilName = "SOUNDMAN"
    Filexit MyPath, FilName
    End Sub
    Private Function Filexit(ByVal MyPath As String, ByVal FilName As String) As Boolean
    Dim MyName As String
    MyName = Dir(MyPath, vbNormal)
    Do While MyName <> ""
      If Left(MyName, Len(MyName) - 4) = FilName Then
             MsgBox FilName & "存在!"
             MsgBox FilName & "扩展名为" & Right(MyName, 3)
             Filexit = True
             Exit Do
        End If
       
    MyName = Dir
    Loop
     
    End Function
      

  2.   

    if dir("elec.*")<>"" then '文件存在