vb6程序发布成EXE后在其他机器上运行报RUN-TIME ERROR 70

Question

本机运行正常， 发布成EXE后，在其他机器运行后，扫描可以运行扫描过程中点停止后出现 70错误 程序如下：Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  Dim fso
  Dim fn     As String
  Dim SFlag     As Boolean
    
Private Sub Form_Initialize()Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
End Sub
  Private Sub Command1_Click()
  
  Dim fd     As String
  Dim DrvNum As Single
  Dim drvName As String
  Dim DrvType As Integer
  Dim i As Integer
  Set fso = CreateObject("Scripting.FileSystemObject")
  List1.Clear
  SFlag = True
  Command1.Enabled = False
  Command2.Enabled = True   
  Drive1.Visible = False
  DrvNum = Asc("a") - 1
  For i = 0 To Drive1.ListCount
        DrvNum = DrvNum + 1
        drvName = Chr(DrvNum) & ":\"
        DrvType = GetDriveType(drvName) '判断驱动器类型
       If GetDriveType(drvName) = 3 Then '硬盘
         fd = drvName
         Call getFilenm(fd)
        End If
  Next
  Command3.Enabled = True
  End Sub
    
  Function getFilenm(fdnm As String)
  Dim obFd, fl, sfd
  DoEvents
  Me.Label1.Caption = fdnm
  Set obFd = fso.GetFolder(fdnm)
      For Each fl In obFd.Files
      DoEvents
        
      '     是否停止
      If SFlag = False Then
            Exit Function
      End If
            If fl.Name = "dafsd.txt" Then
               List1.AddItem fdnm & "\" & fl.Name
              
            End If
      Next
        
            
  If obFd.SubFolders.Count > 0 Then
      For Each sfd In obFd.SubFolders
          Call getFilenm(sfd.Path)
      Next
  End If
  End Function
    
  Private Sub Command2_Click()
  
  SFlag = False
  Command1.Enabled = True
  Command2.Enabled = False
  Command3.Enabled = True  End Sub  Private Sub Command3_Click()
  Command3.Enabled = False
  Dim tim   As String
  Dim i     As Integer
  For i = 0 To List1.ListCount - 1
  Kill List1.List(i)
   tim = "(" & Now() & ")"
   Call WritePrivateProfileString("Information", "File", List1.List(i) & tim, "c:\windows\Infor.ini")
  Next
  If List1.ListCount > 0 Then
    List1.Clear
    MsgBox "成功删除"
  Else
    MsgBox "没有找到，不需要清除"
  End If
  
  
  
Command2.Enabled = True  End Sub

Answer 1

Error(70) Permission denied
可能当前用户没有某些目录的访问权。

Answer 2

'理论上是这个过程出错。
  Private Sub Command3_Click()
  Command3.Enabled = False
  
  On Error GoTo ErrorHandle:           '添加错误处理
  
  Dim tim   As String
  Dim i     As Integer
  For i = 0 To List1.ListCount - 1
  Kill List1.List(i)                         '错误很可能发生在这一句，遇到无法删除的文件
   tim = "(" & Now() & ")"
   Call WritePrivateProfileString("Information", "File", List1.List(i) & tim, "c:\windows\Infor.ini")
  Next
  If List1.ListCount > 0 Then
    List1.Clear
    MsgBox "成功删除"
  Else
    MsgBox "没有找到，不需要清除"
  End If
  Exit Sub
ErrorHandle:
   MsgBox Err.Description
End Sub

Answer 3

发现问题出在检索到c:\system Volume Information目录时候就出 permission denied的70错误！这个该怎么解决，我要的是全盘检索啊！在本机测试调试都没问题，一到别人的机器就这样了