Ir ao conteúdo
  • Cadastre-se

VB.NET Como fazer para meu prorama abrir outros no mesmo pendrive


Posts recomendados

Boa tarde...

 

Eu tinha feito um programinha pra me ajudar a configurar as máquinas das empresas que atendo num formato padrão de cada uma, mas eu sempre tenho que instalar em cada maquina o tal programa.

 

Eu queria uma forma de faze-lo ler todos os programas e instaladores que estão no mesmo pendrive que ele está(ex: Ele está em X:\MyApp e os programas e instaladores estão em X:\APPS\xapp\xapp.exe , X:\APPS\yapp\yapp.exe , X:\APPS\zapp.exe) independente de como seria (se eu teria que selecionar a letra em questão numa combobox, por serial ou qualquer coisa do tipo).

 

Obrigado

Link para o comentário
Compartilhar em outros sites

  • 5 meses depois...

Pode fazer isto utilizando um programa BAT

 

Pode até crair um autoexec.bat que ele seria acionado no momento que colocar o pendrive

(se bem que alguns anti-virus não iriam permitir isso)

 

Num programa bat o mais simples seria abrir todos os instaladores de uma só vez e ai vai instalando eles um por um

mas pode colocar um comando PAUSE entre cada execução

aí instalaria um, teclaria ENTER e acionaria o outro e por aí vai

 

Alternativamente ao BAT pode conseguir o mesmo resultado com um programa em VBSCRIPT

aí teria que trocar o PAUSE(ENTER) por uma mensagem de alerta

 

mas se quiser que cada instalador seja acionado só depois que o instalador anterior foi finalizado

teria que fazer um programa mesmo

e colocar o comando EXECANDWAIT ou coisa parecida

que faz com que algo é executado e o comando fica trancado até ter a execução finalizada

aí logo em seguida poderia dar outro comando assim para outro programa

Link para o comentário
Compartilhar em outros sites

  • 6 meses depois...

Eu vou te dar a logica do que você precisa fazer. Se não conseguir montar eu te mando o fonte completo.
 

Dim Letra As String = Application.StartupPath
        Dim TratamentoScring As String() = Letra.Split(New Char() {"\"c})
        Letra = TratamentoScring(0) & "/"
        Dim ParaExecultar = GetFiles(Letra)

Private Function GetFiles(ByVal pathFolder As String) As ArrayList
        Dim returnFiles As ArrayList = New ArrayList
        Dim dirInfo As DirectoryInfo = New DirectoryInfo(pathFolder)
        If dirInfo.Exists Then
            Dim filesInfo As FileSystemInfo() = dirInfo.GetFileSystemInfos
            For Each fil As FileSystemInfo In dirInfo.GetFileSystemInfos("*.exe")
                returnFiles.Add(fil.FullName)
                If fil.Attributes = FileAttributes.Directory Then
                    returnFiles.AddRange(GetFiles(fil.FullName))
                End If
            Next
        End If
        Return returnFiles
    End Function
adicionado 0 minutos depois

depois só fazer o tratamento ai para executar a lista dos exe que ficaram armazenados em ParaExecultar 

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...