FECHAR PROGRAMA
Eai pessoal ^^
eu de novo,
agora com uma duvida diferente, queria saber como eu fecho um programa pelo seu TAMANHO,
todo arquivo que pesa-se 50 kb fosse fechado.
thx desde ja ;D
eu de novo,
agora com uma duvida diferente, queria saber como eu fecho um programa pelo seu TAMANHO,
todo arquivo que pesa-se 50 kb fosse fechado.
thx desde ja ;D
oxi éssa boa [S25]
Tenho algo que pode dar pra você começar
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim Arq As File
Set Arq = fso.GetFile(([Ô]endereço do arquivo[Ô]) & [Ô]\arquivo.extensão[Ô])
If Arq.Size > 200 Then Text1.Text = [Ô]é maior que 200 bytes[Ô]
[ô]MessageBox mostra o tamanho do arquivo em bytes
MsgBox Arq.Size
End Sub
Não se esqueça que pra isso funcionar tem que ir em:
Project - references
e selecionar Microsoft Scripting Runtime
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim Arq As File
Set Arq = fso.GetFile(([Ô]endereço do arquivo[Ô]) & [Ô]\arquivo.extensão[Ô])
If Arq.Size > 200 Then Text1.Text = [Ô]é maior que 200 bytes[Ô]
[ô]MessageBox mostra o tamanho do arquivo em bytes
MsgBox Arq.Size
End Sub
Não se esqueça que pra isso funcionar tem que ir em:
Project - references
e selecionar Microsoft Scripting Runtime
Tópico encerrado , respostas não são mais permitidas