如何用vb修改一个目录下所有文件的扩展名？

Question

你很危险啊！！！
用Name 吧！
结合Dir 。

Answer 1

Private Sub Command1_Click()'实现把 *.look 变成　*.change
Dim Tochange As String
Dim TheLen As Integer
Dim Newi As String
Dim Oldi As String
Tochange = Dir("f:\ds\*.look")  '要改的文件后缀是　look
Do While Tochange <> ""
TheLen = Len(Tochange)
Oldi = "f:\ds\" & Tochange
Tochange = Left(Tochange, TheLen - 4)  '4 是依据原来的后缀的长度而定的
                                        'ｌｏｏｋ的长度是　4　所以这里是　4
Newi = "f:\ds\" & Tochange & "change" ' change 是改后的后缀名　*.change
Name Oldi As Newi
Tochange = DirLoopEnd Sub－－－－－－－－－－－－－以上是我想到的，随意写的！！

Answer 2

Public Function GetFileExtName(ByVal FileNameData As String) As String
    Dim strFileName As String
    
    strFileName = GetFileName(FileNameData)
    
    If InStr(1, strFileName, ".") = 0 Then
        GetFileExtName = ""
    Else
        GetFileExtName = Mid(strFileName, InStr(1, strFileName, ".") + 1)
    End If
End Function这段代码是个示意,演示如何得到文件名,你可将它扩展为得到文件完整路径名中除去扩展名的那部分,再将这部分和新的扩展名组成新的文件名就行了. 

Answer 3

shell "ren *.bak *.bat"