ListView

[FinalFantasy]

Con un listview devo fare un esplora risorse come quello del cuteFTP. In pratica mi serve che quando entro in una directory qualsiasi mi spuntano tutti i file e tutte le icone associate. Ci deve essere la colonna del nome del file, la colonna della grandezza, in pratica deve essere simile (non uguale) a quella del cuteFTP o come tanti altri programmi. L'altra cosa ke mi servirebbe e come fare a trascinare un file da qst listview in un'altra listview. Con questa tecnica il cuteftp fa upload/download di file. In pratica mi servirebbero queste due cosette: Esplora risorse e questa specie di DragDrop

[FinalFantasy]

Help me
upupuo

[ladyBlu]

devo fare un esplora risorse come quello del cuteFTP

Ho usato un form con una listview e un commandButton e ho inserito nei riferimenti del progetto la libreria Microsoft Scripting Runtime:

Private Sub Command1_Click()

    ' variabili per leggere sul disco
    Dim fsSystem As New FileSystemObject
    Dim flFolder As Folder
    Dim flFile As File
    Dim intInd As Integer
    Dim i As Integer
    Dim strPercorso As String
    ' variabili per aggiugere item e subitem nella listview
    Dim lvItem As ListItem

    ' assegna il percorso    
    strPercorso = "C:\..."
    Set flFolder = fsSystem.GetFolder(strPercorso)
    
    ScriviIntestazioni
    ' cicla i file presenti nella cartella specificata
    For Each flFile In flFolder.Files 

        Set lvItem = lvElencoFile.ListItems.Add(Text:=flFile.Name)
        lvItem.ListSubItems.Add Text:=flFile.Size
        lvItem.ListSubItems.Add Text:=flFile.Type
        lvItem.ListSubItems.Add Text:=flFile.DateCreated
        lvItem.ListSubItems.Add Text:=flFile.DateLastModified
        
    Next

End Sub

Private Sub ScriviIntestazioni()
    
    Dim sngLarg As Single
    ' cancella gli item e le intestazioni dalla listview
    lvElencoFile.ListItems.Clear
    lvElencoFile.ColumnHeaders.Clear
    ' assegna alla listview il tipo di visualizzazione
    lvElencoFile.View = lvwReport
    
    sngLarg = lvElencoFile.Width / 5
    ' crea e dimensiona le intestazioni
    With lvElencoFile.ColumnHeaders
        .Add Text:="Nome file", Width:=sngLarg * 2
        .Add Text:="Dimensione", Width:=sngLarg / 2
        .Add Text:="Tipo", Width:=sngLarg
        .Add Text:="Data creazione", Width:=sngLarg
        .Add Text:="Data ultima modifica", Width:=sngLarg
    End With

End Sub

[FinalFantasy]

Grazie del tuo aiuto...xo...xke mi da questo errore sulla prima variabile (fsSystem)? L'errore è User-defined type not defined. Puoi dirmi x favore come posso risolverlo? grassie ancora...

[ale500]

per fare esplora risorse puoi gli active x della Sky Software....

si chiamano FileView per visualizzare i file dentro una specie di text e FolderView per permetterti di scorrere tra le cartelle con il menu gerarchico....

l'unico problema è che sono a pagamento...ma se la cosa è per un semplice uso personale nessun problema....

[ladyBlu]

Originariamente inviato da FinalFantasy
Grazie del tuo aiuto...xo...xke mi da questo errore sulla prima variabile (fsSystem)? L'errore è User-defined type not defined. Puoi dirmi x favore come posso risolverlo? grassie ancora...

Hai incluso nel progetto la libreria Microsoft Scripting Runtime come ti avevo detto?
da menù Progetto --> Riferimenti

[yyzyyz]

ciao LadyBlu, tutto funziona bene, pero' ricevo un errore "runtime-5 chiamata di routine nn valida" su questa riga:

lvItem.ListSubItems.Add Text:=flFile.DateCreated

:master:

ps. premetto ke uso win98SE, nn so se possa influire

x FinalFantasy, assikurati ke il nome della listview sia lvItem

[ladyBlu]

Originariamente inviato da yyzyyz
ciao LadyBlu, tutto funziona bene, pero' ricevo un errore "runtime-5 chiamata di routine nn valida" su questa riga:

lvItem.ListSubItems.Add Text:=flFile.DateCreated

:master:

ps. premetto ke uso win98SE, nn so se possa influire

a me questo codice funziona sia su win200 che su xp, mi sembra strano che a te non vada.
Hai eseguito tutto il codice o ne hai estrapolato solo una parte?

x FinalFantasy, assikurati ke il nome della listview sia lvItem

la listview si chiama lvElencoFile, mentre lvItem è il nome della variabile ListItem utilizzata per aggiungere i SubItems

[yyzyyz]

la listview si chiama lvElencoFile, mentre lvItem è il nome della variabile ListItem utilizzata per aggiungere i SubItems

era proprio quello ke volevo dire

x il resto ho riportato il tuo codice cosi com'è ,aggiungendo i rif.
cmq se disattivo quella riga tutto funziona bene, l'unika kosa ke nn fa è mettere la data di creazione nn capiko xchè :master:
ciao

[ladyBlu]

Originariamente inviato da yyzyyz
era proprio quello ke volevo dire

x il resto ho riportato il tuo codice cosi com'è ,aggiungendo i rif.
cmq se disattivo quella riga tutto funziona bene, l'unika kosa ke nn fa è mettere la data di creazione nn capiko xchè :master:
ciao

lvItem.ListSubItems.Add Text:=flFile.DateCreated

forse la proprietà del file "DataCreated" non esiste.
hai provato a vedere quali metodi e proprietà ti da vb quando scrivi flFile. ?