Informática

[Sls a GPL]

Alguém com conhecimentos em vb.net 2010, que me dê uma ajuda, eu já não mexo no vb à já alguns meses, e ja andei as voltas e não chego lá...

O que eu preciso é de saber quantos files existem numa directoria com uma determinada extensão, e  colocar os nomes desses files num arrey .
com o My.Computer.FileSystem não estou a ver o que é que tenho que usar...
mais propriamente preciso de identificar todos os ficheiros com extensão .log  que está dentro de uma directoria onde tem vários files

desde já obrigado

[fmatos]

Boas sls. Em VB já lá vão muitos anos que não lhe toco e não hei-de voltar a tocar pelo que me parece. Tenho aqui o que pediste em C# mas como é tudo .net espero que te desenrasques.

            string directoria = @"c:\users\filipe matos\documents";
            string pesquisa = "*.log";

            string[] arquivos = Directory.GetFiles(directoria, pesquisa);

            foreach (string arquivo in arquivos)
            {
                Console.WriteLine(arquivo);
            }

Tens ainda que incluir o System.IO nos using's.
Se não perceberes muito bem diz. Abraço

[Sls a GPL]

vou "traduzir" para o vb e ver se dá para aquilo que eu preciso, é que já andei para lá às voltas e não dou com aquilo, so encontrei o findinfiles e o resultado é num colection string se não me engano... É da ferrugem lol já não mexo no vb a montes de tempo, que já não me lembro como se faz .....
Desde já obrigado, depois digo se consegui ou não

[fmatos]

Aqui tens o que precisas. Pensei que o VB tivesses os mesmo métodos que C# mas afinal não

        Dim tamanhoFicheiro As String = ""
        Dim directorio As New IO.DirectoryInfo("c:\users\filipe matos\documents")
        Dim arrayFiles As IO.FileInfo() = directorio.GetFiles("*.pdf")
        Dim ficheiro As IO.FileInfo

        For Each ficheiro In arrayFiles
            tamanhoFicheiro = (Math.Round(ficheiro.Length / 1024)).ToString()
            Console.WriteLine("Nome: {0}", ficheiro.Name)
            Console.WriteLine("Directorio: {0}", ficheiro.FullName)
            Console.WriteLine("Tamanho (KB): {0}", tamanhoFicheiro)
            Console.WriteLine("Extensão: {0}", ficheiro.Extension)
        Next

Tens ai os print's para o output da consola e ainda há mais uns atributos que podes printar/acessar, tipo a data de ultimo acesso, etc.

[fmatos]

ah já me esquecia no directório metes o teu em questão  e na chamada do GetFiles o parâmetro será no teu caso "*.log"

[Sls a GPL]

obrigado fmatos já consegui resolver o meu problema com a dica que me deste.

já não mexo nisto  à tanto tempo, que quando olhei para o código do meu programa, parecia um burro a olhar para um palácio!!! demorei a tarde toda aqui com testes e a tentar perceber o código que já tinha feito. Mas agora já está resolvido.

Isto tudo porque acontece um erro, e eu não faço a mínima ideia como.  É o ficheiro user.config  do programa fica em branco, e eu perco os meus my.setings . depois fico sem saber quantos files já foram criados.
Quanto à resolução de perder os my.setings já tinha uma solução implementada que é eliminar o ficheiro user.config vazio e reiniciar a aplicação automaticamente para ele restaurar o ficheiro. A partir dai voltava a funcionar como deve de ser, mas a partir do 0 . Acabava por perder os ficheiros já criados.
Agora já os consigo recuperar os ficheiros , com a implementação deste código novo

Um grande obrigado

[fmatos]

Sempre às ordens  qualquer dúvida dispõe

[sHinta]

Já que dei com este tópico, este fim de semana quis instalar Ubuntu para experimentar coisas novas. Aquilo em aspecto gráfico não é muito diferente do W. Alguém aqui usa? Dicas para usar o Ubu a 100%?

[fmatos]

Eu uso e acho muito diferente. É um ambiente muito fechado e "claustrofóbico" lool
Mas também o bom do ubuntu e do linux em geral não é o ambiente gráfico mas sim tudo o "resto". Para o meteres em máximo performance depende do que quiseres fazer com ele.

[DiogoIglesias]

Eu já usei, mas neste momento uso Xubuntu que é uma distribuição que usa o Xfce em vez de Gnome, é mais leve portanto.
É bem diferente e requer alguma habituação. A minha dica seria instalares numa virtual machine ou numa partição à parte para ires testando. Vê tutoriais na net também.

[aacc]

Boa tarde meus amigos.
Para quem não sabe e possa estar interessado,
a microsoft disponibiliza o novíssimo Windows 8 Pro,
a um preço reduzido durante um curto período de tempo.

http://windows.microsoft.com/pt-PT/windows/buy?ocid=GA8_O_WOL_DIS_ShopHP_FPP_Light

[fmatos]

29.99€ seria um preço reduzido pelo produto. Agora para 3 meses acho um abuso. Enfim quem ainda controla este mercado é a Microsoft.

[Ricardo]

Penso que esse preço não é um abuso.

Com 3 meses ainda é recente, aposto que só alteram o preço mais ou menos daqui a 1 ano..

Contudo gostava de fazer essa alteração para windows 8 mas ainda não tenho o feedback que queria ter por isso ainda não fiz essa alteração..
Já testei no telemóvel o sistema operativo mas contudo penso que será bem diferente no computador.

[carlosjcm]

Recebi um panfleto acho que era da radio popular mas sem certeza e windows 8 pro 69€

[Ricardo]

O da Microsoft também é o Pro mas só custa 29,99€