Text VB6--写入文件时拒绝预分配_Text_File Io_Vb6

Text VB6--写入文件时拒绝预分配

text file-io vb6

Text VB6--写入文件时拒绝预分配,text,file-io,vb6,Text,File Io,Vb6,当我打开文件在其中写入内容时，我得到了“拒绝许可” 多芬特我在“opencustomdriveicon For Output As#iFileNo”行中得到了错误。有什么问题吗？您已经打开了文件两次，一次使用CreateTextFile，一次使用Open语句。您无法两次打开该文件，因此第二次打开失败只需删除这些行-您不需要它们 Dim newFIle Dim FSO Set FSO = CreateObject("Scripting.FileSystem Object") Set newF

当我打开文件在其中写入内容时，我得到了“拒绝许可”

多芬特

我在“

opencustomdriveicon For Output As#iFileNo

”行中得到了错误。有什么问题吗？

您已经打开了文件两次，一次使用CreateTextFile，一次使用Open语句。您无法两次打开该文件，因此第二次打开失败

只需删除这些行-您不需要它们

Dim newFIle Dim FSO
Set FSO = CreateObject("Scripting.FileSystem Object") 
Set newFIle = FSO.CreateTextFile(CustomDriveIcon )

但是我想把文件归档！文件将由Open For Output创建。您不需要FileSystemObject代码

Dim sFileText As String
Dim iFileNo As Integer
  iFileNo = FreeFile
Open CustomDriveIcon For Output As #iFileNo
 Print #iFileNo, "Windows Registry Editor Version 5.00"
 Print #iFileNo, ""
 Print #iFileNo, "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\C\DefaultIcon]"
 Print #iFileNo, "@=" & Chr(34) & "\" & Chr(34) & txtIconPath & "\" & Chr(34) & Chr(34) '@="\"C\""
Close #iFileNo

Dim newFIle Dim FSO
Set FSO = CreateObject("Scripting.FileSystem Object") 
Set newFIle = FSO.CreateTextFile(CustomDriveIcon )