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

[beniao277]

我用 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

[jhone99]

filePath是怎么获取的？

[beniao277]

就是一个字符串 D:\xx.txt

[beniao277]

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

[beniao277]

各位帮哈忙啊！！ 急。。。

[孤独剑_LPZ]

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

[luofenghen]

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

[luofenghen]

[Quote=引用 6 楼 luofenghen 的回复:]
Open filePath For Output As #1 '创建文件并向文件写数据
这句话能新建文件??????
[/Quote]
我错了 确实能创建文件

[yangao]

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