erro no codigo de uma barra de atalhos

[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

[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.

[Senior]

nao estou mesmo a ver porque que da este erro

[ribeiro55]

Onde é que a variável "path" é declarada?

[Senior]

nao declarei porque nao sei como e que declaro o path

[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.

[vbtipo]

Em vb6 o comando path funciona assim app.path e em vbnet tens quer ver como é que é.

[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

[Senior]

tou a fazer uma barra de atalhos como do mac

e ao fazer drag drop dos atalhos do ambiente para cima da form aparecesse os icones dos atalhos.

[Senior]

alguem pode ajudar

[Ivo Pereira]

Se não deres mais pormenores, e não responderes às perguntas que te forem colocadas, é difícil alguém te ajudar rapaz  🙂

[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

[Ivo Pereira]

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

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

[Senior]

logo na 1 linha

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

[Ivo 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.

[Senior]

queria que fosse ver ao desktop

[Ivo 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 🙂

[Senior]

assim da bues erros

http://img44.imageshack.us/img44/6060/erros1234.jpg

[Ivo Pereira]

Tens as variáveis passar_icons, etc.. declaradas?

[Senior]

nao so tenho este bocado do codigo

eu tirei este codigo numa pagina que encontrei