INSTALAR FONTES TTF VIA VB

WMELLOJR 14/08/2009 08:56:53
#319844
Tenho fontes criadas aqui na empresa e preciso desinstalar e instalar manualmente toda vez que tem uma nova versão da mesma fonte.Alguem teria um exemplo que eu automatizar esse processo no vb6
WEBMASTER 14/08/2009 12:28:49
#319870
so de curiosidade, nao eh simples dar um kill no arquivo que esta em fontes ?
e depois copiar de novo ?

  
Sub CopiarFonte()
    Dim FonteOrigem As String
    Dim FonteDestino As String
    
    FonteOrigem = app.Path & IIf(Right(app.Path, 1) <> [Ô][Ô], [Ô][Ô], [Ô][Ô]) & [Ô]cunha.ttf[Ô]
    FonteDestino = Environ([Ô]WINDIR[Ô]) & IIf(Right(Environ([Ô]WINDIR[Ô]), 1) <> [Ô][Ô], [Ô][Ô], [Ô][Ô]) & [Ô]fontscunha.ttf[Ô]
    If Dir(FonteDestino) <> [Ô][Ô] Then Kill FonteDestino
    FileCopy FonteOrigem, FonteDestino
End Sub
WMELLOJR 14/08/2009 13:02:20
#319872
Vlw.
Meu problema é que são vários micros e estão em outro predio.
WEBMASTER 14/08/2009 21:10:28
#319904
Uai...
Isso nao muda absolutamente nada.

Por exemplo voce pode colocar isso num vbscript e inicializar ele junto com o micro, verificar se um dado diretorio tem arquivos , se tiver e for .ttf faca a operacao acima

Eh so uma questao de organizar suas ideias para por em pratica [S47]
WMELLOJR 16/08/2009 10:44:21
#319961
Vlw pela ajuda.
Vou implementar.
Tópico encerrado , respostas não são mais permitidas
Voltar