Imports System
Imports System.IO
Public Module modmain
   Sub Main()
      'KPD-Team 2001
      'URL: http://www.allapi.net/dotnet/
      'E-Mail: KPDTeam@Allapi.net
      File.Copy("c:\autoexec.bat", "c:\autocopy.ext")
      File.Move("c:\autocopy.ext", "c:\newname.ext")
   End Sub
End Module

Close this window