Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicitÓ e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Problema stringhe
Forum - C# / VB.NET - Problema stringhe

Avatar
zottiman (Normal User)
Pro


Messaggi: 121
Iscritto: 06/07/2009

Segnala al moderatore
Postato alle 19:55
Giovedý, 09/07/2009
Dim NewPath As String
        Dim fileList As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Dim Lung As Integer
        Dim NomeFile As String

        NomeFile = ""

        My.Computer.FileSystem.CurrentDirectory = txtDirectory.Text
        NewPath = My.Computer.FileSystem.CurrentDirectory

        fileList = My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.CurrentDirectory)
        For Each foundFile As String In fileList

            Lung = Len(foundFile) - 1


            Do While foundFile.Chars(Lung) <> "\"
                Lung -= Lung - 1
            Loop

            NomeFile = Mid(foundFile, Lung)

            lstFilePick.Items.Add(foundFile)
        
        Next


A.A.A. vendo server HP 360DL 2x2,8 gHz 8gb ram 2x36gb hd

www.ourspc.it
in arrivo --> www.schooldesk.it  

Coltiva Linux... che Winzoz si impianta da solo.. (ahahah)
PM Quote
Avatar
Jeremy (Normal User)
Pro


Messaggi: 134
Iscritto: 08/02/2009

Segnala al moderatore
Postato alle 19:58
Giovedý, 09/07/2009
Testo quotato

Postato originariamente da zottiman:

Dim NewPath As String
        Dim fileList As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Dim Lung As Integer
        Dim NomeFile As String

        NomeFile = ""

        My.Computer.FileSystem.CurrentDirectory = txtDirectory.Text
        NewPath = My.Computer.FileSystem.CurrentDirectory

        fileList = My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.CurrentDirectory)
        For Each foundFile As String In fileList

            Lung = Len(foundFile) - 1


            Do While foundFile.Chars(Lung) <> "\"
                Lung -= Lung - 1
            Loop

            NomeFile = Mid(foundFile, Lung)

            lstFilePick.Items.Add(foundFile)
        
        Next




e quindi?

PM Quote
Avatar
zottiman (Normal User)
Pro


Messaggi: 121
Iscritto: 06/07/2009

Segnala al moderatore
Postato alle 20:05
Giovedý, 09/07/2009
Testo quotato

e quindi?



non riesco a capire dov'Ŕ l'errore, dove sbaglio.


A.A.A. vendo server HP 360DL 2x2,8 gHz 8gb ram 2x36gb hd

www.ourspc.it
in arrivo --> www.schooldesk.it  

Coltiva Linux... che Winzoz si impianta da solo.. (ahahah)
PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 20:12
Giovedý, 09/07/2009
Testo quotato

Postato originariamente da zottiman:

Testo quotato

e quindi?



non riesco a capire dov'Ŕ l'errore, dove sbaglio.



Ma sbagli cosa?

Perche' non commenti il codice indicando cosa dovrebbe fare e cosa invece fa ?

Insomma ... si devono dare le risposte e anche le domande ?


- Se le mie risposte non vi soddisfano, ignoratele, altrimenti un "grazie" e' molto gradito ...

"Dai un pesce (programma) a un uomo e lo nutrirai per un giorno. Insegnagli a pescare (programmare) e lo nutrirai per tutta la vita." (niente pappa pronta)
PM Quote
Avatar
Jeremy (Normal User)
Pro


Messaggi: 134
Iscritto: 08/02/2009

Segnala al moderatore
Postato alle 20:14
Giovedý, 09/07/2009
Testo quotato

Postato originariamente da zottiman:

e quindi?



Sbagli li .... non lo vedi? dove c'Ŕ il meno

Ultima modifica effettuata da Jeremy il 09/07/2009 alle 20:15
PM Quote