VB6 更改指定文件夹下的某种文件的文件拓展名
现在我有个文件夹“C:\Example”，如何用VB6实现将文件夹下的所有HTM文件的拓展名变为HTML?...
现在我有个文件夹“C:\Example”，如何用VB6实现将文件夹下的所有HTM文件的拓展名变为HTML?
展开
1个回答
展开全部
Private Sub Command1_Click()
Dim n As Integer
On Error Resume Next
f = Dir("c:\Example\*.htm")
Do While f <> ""
Name "C:\Example\" & f As "C:\Example\" & f & "l"
n = n + 1
f = Dir
Loop
MsgBox n & "个文件改名"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
