vb6.0 activex 路径/文件访问错误

Question

我用 vb6 做了一个activex控件 在开发环境里面调试没有出现  路径/文件访问错误 但是部署咯过后出现了  路径/文件访问错误Public Sub WriteText(ByVal filePath As String, ByVal data As String)
 MsgBox filePath
 If Dir(filePath, vbReadOnly + vbHidden + vbArchive) <> "" Then  '如果文件存在就删除
   MsgBox "dsa"
   Kill filePath
 End If
 Open filePath For Output As #1 '创建文件并向文件写数据
 Print #1, data
 Close #1
End Sub

Answer 1

 Dim s As Synchronization
 Set s = New Synchronization
 Dim data As String
 data = "dedddddddddddd"
 Call s.WriteText("d:\m.txt", data)
 

Answer 2

过程WriteText的最前面加一句 on error resume next

Answer 3

Open filePath For Output As #1 '创建文件并向文件写数据
这句话能新建文件??????

Answer 4

 MsgBox filePath
 If Dir(filePath, vbReadOnly + vbHidden + vbArchive) <> "" Then  '如果文件存在就删除
   MsgBox "dsa"
   Kill filePath
 End If
上面这段代码有些画蛇添足了
下面的代码本身就是文件存在直接往上重新写