Pegar Atributos De Executavel

[Ozi]

Help galera!

Seguinte, Quero indicar um executavel pr meu prog e queria q ele pegasse o nome, o tamanho em kb e a data em que foi criado. alg sabe como fazer?

Abraços!!!

Ozi

[Graymalkin]

O nome já vai ser o próprio caminho do arquivo, não? Para o tamanho você pode usar a função FileLen() e para a data você pode usar FileDateTime().

Abraços,

Graymalkin

[Ozi]

Grande Greymalkin! Sempre socorrendo a galera. Hehehe!

Valeu cara, mas você pode me dar um ex d como usar essa função?

Tipo, eu qeria botar isso em variaveis pra eu usá depois, tipo assim:

------------------------------

dim varNome as string

dim varTamanho as integer

dim varData as Date

varNome= App.Path & "nome do meu exe"

varTamanho= FileLen(nome do meu exe)

varData=FileDateTime(nome do meu exe)

------------------------------

Ve aí se funciona! Pode me dar um help em cima disso?

é q eu to no trampo e só uso o vb em casa no fim de semana! hehehe

Abraços brother!!!

[Graymalkin]

Sim, é isso aí mesmo. Só o tamanho que deve ser declarado como Long ao invés de Integer. Segue o código que testei aqui:

Dim varNome As String
Dim varTamanho As Long
Dim varData As Date
varNome = App.Path & "\project1.exe"
varTamanho = FileLen(varNome)
varData = FileDateTime(varNome)
Debug.Print varNome, varTamanho, varData

Abraços,

Graymalkin

[Ozi]

Valeu! mas, só que eu precisava colocar em varData a data em que o exec. foi criado mas, sem as "/". tipo ao invés de 05/05/2005 fosse 05052005. como fazer isso? E o que faz essa linha?

Debug.Print varNome, varTamanho, varData

Até mais!!! Valeu a Força.

[Graymalkin]

Valeu! mas, só que eu precisava colocar em varData a data em que o exec. foi criado mas, sem as "/". tipo ao invés de 05/05/2005 fosse 05052005. como fazer isso?

Tranforme a data em string (cstr()) e utilize a função replace() para retirar a "/". Ao digitar essas funções lá e abrir o parêntese você verá quais os argumentos que deve preencher.

E o que faz essa linha?

Debug.Print varNome, varTamanho, varData

Essa linha escreve esses dados na janela Immediate (uma janelinha de debug que fica lá embaixo). É útil para você poder testar se os dados que você quer estão corretos (e após compilar para o executável isso não tem efeito algum, ou seja, só funciona em tempo de desenvolvimento).

Abraços,

Graymalkin

[Ozi]

Aí cara, não consegui usar essa função Replace pra tirar as "/" da data. você pdria postar um ex? É q não tenho muita exp. em vb ainda

Obrigado, Abração brother!

[Graymalkin]

Aí vai um exemplo:

resultado = replace("05/05/2005", "/", "")

Os nomes dos parâmetros de Replace() te dizem exatamente o que é cada uma das coisas que devem ser passadas, ok?

Abraços,

Graymalkin

[Ozi]

Valeu colega! tópico encerrado! Obrigado.

Abraçussss