Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Senior

erro no codigo de uma barra de atalhos

Mensagens Recomendadas

Senior    0
Senior

viva pessoal

tou a fazer uma barra de atalhos como o do mac, mas tou a ter problemas no codigo

diz me que o patch nao foi declarado

 For Each foundFile As String In My.Computer.FileSystem.GetFiles(path)
            lvItem = ListView.Items.Add(My.Computer.FileSystem.GetFileInfo(foundFile).Name)
            ListViewLargeImageList.Images.Add(System.Drawing.Icon.ExtractAssociatedIcon(foundFile).ToString, System.Drawing.Icon.ExtractAssociatedIcon(foundFile))
            ListViewSmallImageList.Images.Add(System.Drawing.Icon.ExtractAssociatedIcon(foundFile).ToString, System.Drawing.Icon.ExtractAssociatedIcon(foundFile))
            lvItem.ImageKey = ListViewLargeImageList.Images.Keys(passar_icons).ToString
            lvItem.SubItems.AddRange(New String() {My.Computer.FileSystem.GetFileInfo(foundFile).Extension, "Column3"})
            passar_files = passar_files + 1
            tssl_ficheiros.Text = passar_files & " Ficheiros e " & passar_dirs & " Pastas = " & passar_dirs + passar_files
            passar_icons = passar_icons + 1
            Application.DoEvents()
        Next
        End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vbtipo    0
vbtipo

Essa parte do path deve estar mal introduzida, ou seja, assim como pusestes ele pensa que o path é uma variável e não o caminho tal como tu queres indicares a ele.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
ribeiro55    44
ribeiro55

E não percebes porque dá erro? :)

Se o path não for declarado ou se nenhum valor lhe for atribuído, é esse erro mesmo que levas.

Explica lá onde estás a meter esse código e mais especificamente onde queres ir buscar ficheiros.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
ribeiro55    44
ribeiro55

O ter chamado "path" não quer necessáriamente dizer que queira ir buscar à origem da execução.

Eu já lhe pedi para especificar melhor de onde quer ir buscar ficheiros.

Caso seja mesmo isso que queiras, My.Application.Info.DirectoryPath

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Senior    0
Senior

tenho este codigo na listview

  For Each foundFile As String In My.Computer.FileSystem.GetFiles(path)
            lvItem = ListView.Items.Add(My.Computer.FileSystem.GetFileInfo(foundFile).Name)
            ListViewLargeImageList.Images.Add(System.Drawing.Icon.ExtractAssociatedIcon(foundFile).ToString, System.Drawing.Icon.ExtractAssociatedIcon(foundFile))
            ListViewSmallImageList.Images.Add(System.Drawing.Icon.ExtractAssociatedIcon(foundFile).ToString, System.Drawing.Icon.ExtractAssociatedIcon(foundFile))
            lvItem.ImageKey = ListViewLargeImageList.Images.Keys(passar_icons).ToString
            lvItem.SubItems.AddRange(New String() {My.Computer.FileSystem.GetFileInfo(foundFile).Extension, "Column3"})
            passar_files = passar_files + 1
            tssl_ficheiros.Text = passar_files & " Ficheiros e " & passar_dirs & " Pastas = " & passar_dirs + passar_files
            passar_icons = passar_icons + 1
            Application.DoEvents()
        Next
    End Sub

mas da me erro no path diz que nao foi declarada

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

Sim, essa parte está no tópico inicial.

Diz que o path não foi declarado, exactamente onde? Já experimentaste fazer um breakpoint?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

logo na 1 linha

For Each foundFile As String In My.Computer.FileSystem.GetFiles(path)

É porque o programa não sabe onde ir buscar path.

O que tu tens ai no código na primeira linha quer dizer algo como isto:

  Para cada "ficheiroencontrado" do tipo String em VerificarOsFicheirosDoMeuComputadorNestaPasta(path)

Isto assim traduzido mal e porcamente para português.

Se não tu especificas onde ele deve ir ver os ficheiros, é normal que ele te diga que não sabe onde os há-de ir ver.

O path poderá ser por exemplo "C:\", digo eu.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

        Dim path As String = My.Computer.FileSystem.SpecialDirectories.Desktop
For Each foundFile As String In My.Computer.FileSystem.GetFiles(path)
            lvItem = ListView.Items.Add(My.Computer.FileSystem.GetFileInfo(foundFile).Name)
            ListViewLargeImageList.Images.Add(System.Drawing.Icon.ExtractAssociatedIcon(foundFile).ToString, System.Drawing.Icon.ExtractAssociatedIcon(foundFile))
            ListViewSmallImageList.Images.Add(System.Drawing.Icon.ExtractAssociatedIcon(foundFile).ToString, System.Drawing.Icon.ExtractAssociatedIcon(foundFile))
            lvItem.ImageKey = ListViewLargeImageList.Images.Keys(passar_icons).ToString
            lvItem.SubItems.AddRange(New String() {My.Computer.FileSystem.GetFileInfo(foundFile).Extension, "Column3"})
            passar_files = passar_files + 1
            tssl_ficheiros.Text = passar_files & " Ficheiros e " & passar_dirs & " Pastas = " & passar_dirs + passar_files
            passar_icons = passar_icons + 1
            Application.DoEvents()
        Next
        End Sub

Experimenta lá assim :)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

nao so tenho este bocado do codigo

eu tirei este codigo numa pagina que encontrei

Podes mostrar a página de onde tiraste?

Não era melhor dizeres exactamente o que queres fazer?

Queres passar o nome dos ficheiros que tens no ambiente de trabalho, para uma listview?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

a minha intencao era arrastar para cima da listview e aparecer  os icones arrastados

Arrastar os ícones do ambiente de trabalho?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade