Ciao a tutti, come da titolo vorrei creare un file exe o batch che mi permetta di installare una font (Xfiles.ttf) e copiare un file nella cartella system32 (XPControls.ocx)
Sapete aiutarmi ?
Io ho inserito questo codice per vb6:
Private Sub Form_Load()
FileCopy (App.Path & "\XFILES.ttf"), ("C:\Windows\Fonts\")
FileCopy (App.Path & "\XPControls.ocx"), ("C:\Windows\System32\")
MsgBox "Operazione Completata !, Adesso è possibile aprire il programma", vbInformation, Info
Unload Me
End Sub
Public Sub FileCopy(strSourcePath As String, strDestinationPath As String)
Dim fso As Object
Dim fil As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.getfile(strSourcePath)
fil.Copy strDestinationPath
Set fil = Nothing
Set fso = Nothing
End Sub
Secondo voi può funzionare ?
Grazie
Ciao
By Devil_Joker93
Ultima modifica effettuata da Devil_Joker93 il 16/01/2010 alle 15:02 |