Vb6 将*.mis、*fin转换为*txt文件

如何通过vb6代码转换文本文件

文件名如clock.fin、time.mis、date.fin等

---

我想通过代码将其命名为clock.txt、time.txt、date.txt。

如果要使用vb6重命名文件，可以按如下方式执行：

Set fso = CreateObject("Scripting.FileSystemObject") 
Set file = fso.GetFile("c:\oldName.txt") 
file.name = "newName.txt" 
Set file = nothing 
Set fso = nothing

或：

更新：

---

您可以使用FileSystemObject.GetExtensionName方法获取路径（文件）的扩展名，然后可以将其替换为“txt”

您可以通过以下方式重命名文件：

Name "c:\xxx.fin" As "c:\xxx.txt"

---

使用FSO无需费时费力。

是否要更改文件扩展名？

Name "c:\xxx.fin" As "c:\xxx.txt"