COPIAR AQUIVOS E EXECUTAR O MESMO.
caro colegas, gostaria de saber como faço para copia o executavio que acabei de executar para uma outra pasta com outro nome e executar o copiado e finalizar o original, e quando for fazer a execussão do arquivo copiado pela segunda vez não permitir. E o arquivo original não pode ficar executado.
'modulo:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory _
As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
'Form
Private Sub Command1_Click()
FileCopy "C:\arquivo.ext","D:\arquivo_copiado.ext"
ShellExecute Form1.hwnd,"open","D:\arquivo_copiado.ext",vbNull,vbNullString, _
SW_SHOWNORMAL
End
End Sub
'no arquivo copiado vc poe:
Private Function Verifica(NomeDoExecutavel as string) 'no caso o nome é
'arquivo_copiado.ext
if app.EXEName = NomedoExecutavel then ExitSub
End Function
vê se funciona ae falow
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory _
As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
'Form
Private Sub Command1_Click()
FileCopy "C:\arquivo.ext","D:\arquivo_copiado.ext"
ShellExecute Form1.hwnd,"open","D:\arquivo_copiado.ext",vbNull,vbNullString, _
SW_SHOWNORMAL
End
End Sub
'no arquivo copiado vc poe:
Private Function Verifica(NomeDoExecutavel as string) 'no caso o nome é
'arquivo_copiado.ext
if app.EXEName = NomedoExecutavel then ExitSub
End Function
vê se funciona ae falow
Tópico encerrado , respostas não são mais permitidas