谁帮我翻译下面的VB语言 急用！！！

来源：百度知道 编辑：UC知道 时间：2024/06/25 16:04:41
Dim fso As New FileSystemObject
Dim drv As Drive, drvs As Drives

Private Sub Command2_Click()
On Error Resume Next
If Not fso.FolderExists(Left(Drive1.Drive, 2) & "\Autorun.inf\mifeng..\") Then
fso.CreateFolder (Left(Drive1.Drive, 2) & "\Autorun.inf")
fso.CreateFolder (Left(Drive1.Drive, 2) & "\Autorun.inf\mifeng..\")
MsgBox "驱动器免疫成功！", vbInformation, "免疫成功！"
Else
MsgBox "你选择的驱动器已经免疫成功！", vbCritical, "不用免疫了！"
End If

End Sub

Private Sub Command1_Click()
Dim str As String
Set drvs = fso.Drives
For Each drv In drvs
If drv.IsReady = True Then
str = str & "驱动器：" & drv.DriveLetter & ":" & "{" & drv.VolumeName & "}"
If Not fso.FolderExists(drv.DriveLetter & ":\Autorun.inf\mifeng..\") Then
If Len(drv.VolumeName)

Dim fso As New FileSystemObject
Dim drv As Drive, drvs As Drives
'以上为定义文件系统控件
Private Sub Command2_Click()
On Error Resume Next
’遇错执行下一句
If Not fso.FolderExists(Left(Drive1.Drive, 2) & "\Autorun.inf\mifeng..\") Then
'判断免疫文件夹是否存在
fso.CreateFolder (Left(Drive1.Drive, 2) & "\Autorun.inf")
fso.CreateFolder (Left(Drive1.Drive, 2) & "\Autorun.inf\mifeng..\")
'若不存在，则创建免疫文件夹
MsgBox "驱动器免疫成功！", vbInformation, "免疫成功！"
’成功提示
Else
MsgBox "你选择的驱动器已经免疫成功！", vbCritical, "不用免疫了！"
’若存在则提示已免疫
End If

End Sub
Private Sub Command1_Click()
Dim str As String
Set drvs = fso.Drives
For Each drv In drvs
’对所有驱动器进行免疫检查，以下为检查过程
If drv.IsReady = True Then
str = str & "驱动器：" & drv.DriveLetter & ":" & "{" & drv.VolumeName & "}"