Ir ao conteúdo
  • Cadastre-se
MaxPresi

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!