將* .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」替換它。