[VB6] Nomi di files

[Dennis]

l'utente seleziona una cartella sul disco fisso, io voglio ottenere una serie di variabili (o un array), contenente i NOMI completi di tutti i file presenti in quella cartella, per poter modificare il nome dei files...

esempio

l'utente seleziona la cartella "CIAO" che coniene i files "comeva.txt", "bene.mp3", "prova.avi"

io voglio 3 variabili (o un array), con i valori
comeva.txt
bene.mp3
prova.avi


chi mi aiuta? grazie!

[Mabi]

Dim NomiFile() As String
Dim FileTemp As String
Dim NomeCartella As String

ReDim NomiFile(0)
NomeCartella = "C:\"
FileTemp = Dir(NomeCartella)

Do Until FileTemp = ""
  NomiFile(UBound(NomiFile)) = FileTemp
  ReDim Preserve NomiFile(UBound(NomiFile) + 1)
  FileTemp = Dir
Loop
If UBound(NomiFile) > 0 Then
  ReDim Preserve NomiFile(UBound(NomiFile) - 1)
End If

[Dennis]

siete un po avanzati per me :-)

cmq me lo studio... ti ringrazio

[Mabi]

No dai, non era difficile.
Se ti servono chiarimenti, scrivi pure.

Ciao.

[Dennis]

Originariamente inviato da Mabi
No dai, non era difficile.
Se ti servono chiarimenti, scrivi pure.

Ciao.

ehm... per me il VB è attualmente un muro nero praticamente...

cmq mi servirebbero 2-3 chiarimenti che non trovo con F2...

UBound?
ReDim?
Preserve?



ti ringrazio..

ps: una dritta per rinominare i files me la dai?
pps: esistono le espressioni regolari nel vostro mondo?

[ladyBlu]

Ciao Dennis

Allora:
UBound:
Restituisce il numero di elementi caricati in un array, sia esso un array di oggetti o una variabile.

'dichiaro una variabile array di 15 elementi
Dim mioArray(15) As String 
Sub Form_Load()
    MsgBox UBound(mioArray) 'mi appare 15
End Sub

ReDim:
Si usa per ridimensionare un array.

Dim mioArray() As String
Sub Form_Load()
    ReDim mioArray(1) 'gli passo il numero di elementi
    mioArray(0) = "Ciao Dennis" 'valorizzo il primo elemento
End Sub

Preserve:
Associato al ReDim. Serve per mantenere i valori caricati in un array qualora ci sia la necessità di rimensionarlo. Ad esempio:

Dim mioArray() As String
Sub Form_Load()
    ReDim mioArray(1)
    mioArray(0) = "Ciao Dennis"
    
    ReDim Preserve mioArray(2)
    mioArray(1) = "Così non perdo il primo elemento"
End Sub

spero di essere stata chiara ed esaustiva

Ciao



PS:
comunque per usare la guida di VB devi cliccare su F1 e non su F2

[Mabi]

Si certo.
Sei stata chiarissima.