求助-紧急:vb函数问题

Question

请问 vb 有没有和delphi里 可以自动  更改文件扩展名的函数  功能一样的函数呢？？
请告诉我如果有 怎么使用:)
我很菜  谢谢先

Answer 1

name 旧文件名 as 新文件名

Answer 2

Filecopy 源文件,目标文件
Kill 源文件

Answer 3

对话框里可以设置filter限制用户的扩展名的嘛,或者FSO里面有一个函数是可以等到基本文件名的但忘记了,自己找找

Answer 4

Private Function renamefile(Ofilename As String, Efilename As String) As Long
'函数renamefile,重命名成功，返回值为1；重命名失败，返回值为0
'Ofilename原文件名
'Efilename你希望的扩展名
On Error GoTo myerr
Dim s As String, i As Long, newfilename As String
i = InStrRev(Ofilename, ".")
If i >= 1 Then
 s = Left(Ofilename, i) + Efilename
Else
 s = Ofilename + "." + Efilename
End If
newfilename = s
FileCopy Ofilename, newfilename
Kill Ofilename
renamefile = 1
MsgBox "文件重命名成功"
Exit Function
myerr:
 renamefile = 0
 MsgBox "文件重命名错误"
End Function
'调用时，象下面这样
Private Sub Command1_Click()
Dim filename As String
filename = App.Path + "\123.cav"
renamefile filename, "txt"
End Sub

Answer 5

rainstormmaster(rainstormmaster) 谢谢,这才叫帮人帮到底呢