将文件 ini 复制到 txt：权限被拒绝

Question

我只想将 ini 文件的内容复制到 txt 文件中。但它告诉我，该权限被拒绝。

• 源文件已关闭
• Ini 文件“Aly_complete.ini”之前是通过“java -jar”在代码中执行的
• 如您所见，我已经尝试了另一个文件，之前的代码没有使用该文件

这里是代码

Sub Kopieren_Ini(strPathQuelle As String, strPathErg As String)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object    
Dim Quelle As String
Dim Ziel As String

If Sheets(1).TxtBoxIni.Text <> "" Then
    Quelle = Sheets(1).TxtBoxIni.Text
Else
    Quelle = strPathQuelle & "Aly_MitDatum.ini"
    'Quelle = strPathQuelle & "Aly_complete.ini"
End If

Set oFile = fso.CreateTextFile(strPathErg & "\" & "Config_Test.txt")
Ziel = strPathErg & "\" & "Config_Test.txt"

FileSystem.FileCopy Quelle, Ziel

提前感谢您的帮助

Answer 1

听起来.ini 正被另一个应用程序或进程使用。还有什么在运行？重启后还会出现这种情况吗？ _{（来源：my comment☺）}

你的代码不完整（它没有结束）所以我不能肯定地说，但我敢打赌你的问题是同样的常见错误，[imho] 是几乎所有投诉的罪魁祸首由 VBA 代码引起的 Excel 崩溃...

就像父母总是告诉他们的孩子：

在您.Close 之前，该文件处于打开状态（并被锁定并占用内存）。

打开的对象需要关闭并清除。

尝试将这 3 行添加到代码的末尾（或者在您使用完对象的地方）：

oFile.Close
Set oFile = Nothing
Set fso = Nothing

...然后保存您的工作，重新启动，然后再试一次。

---

更多信息：

• 堆栈溢出：Is there a need to set Objects to Nothing inside VBA Functions?

• MSDN：FileSystemObject Object

• MSDN：CreateTextFile Method

• MSDN：Close Method (FileSystemObject)

---

编辑：“复制和重命名”

如果您只需要复制文件（同时重命名副本），请使用以下命令：

Option Explicit

Sub copyFile()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.copyFile "c:\sourcePath\sourceFile.ini", "c:\destinationPath\destFile.txt"
    Set fso = Nothing
End Sub

---

更多更多信息：

• Rob de Bruin：Copying & Moving Files with VBA

• Excel 技巧：FileSystemObject in VBA – Explained

• MSDN：CopyFile Method