将* .mis，* fin转换为* txt文件

Question

使用VB6

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

有像clock.fin，time.mis，date.fin这样的文件名，等等......，

我想通过代码提供clock.txt，time.txt，date.txt。

如何编写代码？

需要VB6代码帮助。

Answer 1

如果要使用vb6重命名文件，可按以下步骤操作：

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

或者：

 Set fso = CreateObject("Scripting.FileSystemObject") 
 fso.MoveFile "c:\oldname.txt", "c:\newname.txt" 
 Set fso = Nothing 

<强>更新

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

Answer 2

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

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

没有必要使用FSO。