COPIAR ARQUIVO PARA DETERMINADA PASTA

BRUNOMOMESSO 10/04/2010 12:05:19
#339021

como eu bloqueio o gerenciador de tarefas ou oculto minha aplicação para ficar oculta dos processos do windows

ou outra alternativa caso o cara saia do launcher que fica no tray do sistema enquanto o jogo é executado pelo gerenciador de tarefas o jogo sairia junto com a aplicação

BRUNOMOMESSO 10/04/2010 14:08:25
#339029

blz brigadao mesmo cara mas o comando

DELETAR EM LOTE COM EXCEÇÃO
Dim Arquivo As String

Arquivo = Dir([Ô]C:\WINDOWS\*.exe[Ô], vbArchive)

Do While Arquivo <> [Ô][Ô]
[ô]Debug.Print Arquivo
If UCase(Arquivo) = [Ô]EXPLORER.EXE[Ô] Then
[ô]ESTE NAO
Else
[ô]KILL ARQUIVO
End If
Arquivo = Dir
Loop

não estou conseguindo usar com sucesso nao

BRUNOMOMESSO 11/04/2010 16:43:08
#339068

cara eu to tentando usar esse comando mas está deletando todos os arquivos com a extenção .txt

Private Sub Form_Load()
[ô]DELETAR EM LOTE COM EXCEÇÃO
Dim Arquivo As String

Arquivo = Dir([Ô]*.exe[Ô], vbArchive)

Do While Arquivo <> [Ô][Ô]
[ô]Debug.Print Arquivo
If UCase(Arquivo) = [Ô]Bruno.txt[Ô] Then
[ô]ESTE NAO
Else
Kill [Ô]*.txt[Ô]
End If
Arquivo = Dir
Loop
End Sub

MICROSCHEME 11/04/2010 16:57:08
#339071

Cara.

Kill [Ô]*.txt[Ô] vai deletar todos os .txt inclusive o Bruno.txt

Tenta assim:

Do While Arquivo <> [Ô][Ô]

[ô]Debug.Print Arquivo
If UCase(Arquivo) <> [Ô]Bruno.txt[Ô] Then
Kill Arquivo
End If
Arquivo = Dir
Loop
End Sub

. . .

MICROSCHEME 11/04/2010 17:01:37
#339073

Outra coisa:

If UCase(Arquivo) = [Ô]Bruno.txt[Ô] Then

Retorna false pois tu tá comparando um nome de arquivo em maisculo pelo ucase com uma string com apenas
o primeiro dítito em maiusculo e o resto minusculo.

Assim vai executar sempre a instrução kill após o else

. . .

Se o teu código estiver assim:

If UCase(Arquivo) = [Ô]BRUNO.TXT[Ô] Then

vai escluir este aarquivo do rol a ser deletado

. . .