COPIAR ARQUIVO PARA DETERMINADA PASTA
Boa noite galera eu to fazendo um progeto aki e to usando um comando modal certo
Private Sub Form_Load()
Dim iTask As Long, ret As Long, pHandle As Long
iTask = Shell([Ô]Launcher SevenPT.exe[Ô], vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
MsgBox [Ô]Você saiu do jogo![Ô], vbInformation, App.Title
End
End Sub
mas eu tava pensando se tem como fazer ele copiar o arquivo de determinada pasta e depois deletalo.
o deletar eu fiz assim
Private Sub Form_Load()
Dim iTask As Long, ret As Long, pHandle As Long
iTask = Shell([Ô]Launcher SevenPT.exe[Ô], vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
MsgBox [Ô]Você saiu do jogo![Ô], vbInformation, App.Title
Kill [Ô]\game.exe[Ô]
End
End Sub
e funciono agora queria que ele copia-se para a pasta
Private Sub Form_Load()
Dim iTask As Long, ret As Long, pHandle As Long
iTask = Shell([Ô]Launcher SevenPT.exe[Ô], vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
MsgBox [Ô]Você saiu do jogo![Ô], vbInformation, App.Title
End
End Sub
mas eu tava pensando se tem como fazer ele copiar o arquivo de determinada pasta e depois deletalo.
o deletar eu fiz assim
Private Sub Form_Load()
Dim iTask As Long, ret As Long, pHandle As Long
iTask = Shell([Ô]Launcher SevenPT.exe[Ô], vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
MsgBox [Ô]Você saiu do jogo![Ô], vbInformation, App.Title
Kill [Ô]\game.exe[Ô]
End
End Sub
e funciono agora queria que ele copia-se para a pasta
pode me mostrar como usar com esse codigo por favor pois eu nao estou conseguindo
Private Sub Form_Load()
Dim iTask As Long, ret As Long, pHandle As Long
iTask = Shell([Ô]Launcher SevenPT.exe[Ô], vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
MsgBox [Ô]Você saiu do jogo![Ô], vbInformation, App.Title
Kill [Ô]\game.exe[Ô]
End
End Sub
Private Sub Form_Load()
Dim iTask As Long, ret As Long, pHandle As Long
iTask = Shell([Ô]Launcher SevenPT.exe[Ô], vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
MsgBox [Ô]Você saiu do jogo![Ô], vbInformation, App.Title
Kill [Ô]\game.exe[Ô]
End
End Sub
olha so o comando de copy jah consegui mas eu precisava agora é que ele copia-se o arquivo de determinada pasta e deixa-se ele oculto
to tentando com o vbhidden mas ele copia o arquivo como game.exe2
o code ta assim
FileCopy [Ô]pasta\game.exe[Ô], [Ô]pastanova\game.exe[Ô] & vbHidden
to tentando com o vbhidden mas ele copia o arquivo como game.exe2
o code ta assim
FileCopy [Ô]pasta\game.exe[Ô], [Ô]pastanova\game.exe[Ô] & vbHidden
perfeito funciono corretamente
so que depois tive que muda-lo d novo o atributo dele para quando fecha o outro programa ai ele fica em modo nao oculto ai deleta mas isso é tao rapido que voce nem percebe que ele fica normal ^^
mais uma dica so aproveitando o topico
eu tentei fazer uma verificação aki mas nao consegui
é assim eu quero quando iniciar o form principal ele verificar determinados arquivos se estão na pasta ou não
caso esteja ele deletaria, caso não tenha ele continuaria executando normal, pois eu fiz assim
Private Sub Form_Load()
Kill [Ô]arquivo.exe[Ô]
Kill [Ô]*.cl[Ô]
End Sub
e por ai vai neh mas se o arquivo não existir da um erro
so que depois tive que muda-lo d novo o atributo dele para quando fecha o outro programa ai ele fica em modo nao oculto ai deleta mas isso é tao rapido que voce nem percebe que ele fica normal ^^
mais uma dica so aproveitando o topico
eu tentei fazer uma verificação aki mas nao consegui
é assim eu quero quando iniciar o form principal ele verificar determinados arquivos se estão na pasta ou não
caso esteja ele deletaria, caso não tenha ele continuaria executando normal, pois eu fiz assim
Private Sub Form_Load()
Kill [Ô]arquivo.exe[Ô]
Kill [Ô]*.cl[Ô]
End Sub
e por ai vai neh mas se o arquivo não existir da um erro
eu fis isso
If Dir([Ô]game.exe[Ô]) <> [Ô][Ô] Then
Kill [Ô]game.exe[Ô]
Else
Me.Show
If Dir([Ô]game.exe[Ô]) <> [Ô][Ô] Then
Kill [Ô]game.exe[Ô]
Else
Me.Show
cara muito obrigado nunca vi um forum como esse responder assim no ato e sem delongas
vlw mesmo e parabens ao forum por ser assim
vlw mesmo e parabens ao forum por ser assim
Tópico encerrado , respostas não são mais permitidas