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

Question

使用VB6

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

有文件名类似clock.fin，time.mis，date.fin，等等...，

我想给作为clock.txt，TIME.TXT，date.txt通过代码。

如何编写代码？

需要VB6代码帮助。

Answer 1

您可以通过简单地重命名文件：

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

没有必要采取使用FSO的很长的路要走。

Answer 2

如果要使用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”替换它。