[VB6] problema con commondialog e apertura file multipli.

[A\|dR3\V]

Salve ragazzi.
In un programma uso la commondialog per aprire dei file di testo ed ho abilitato i seguenti flag:

CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer + cdlOFNHideReadOnly

Dopo aver selezionato i file, andando a vedere la proprietà FileName della commondialog, mi ritrovo una stringa di questo tipo:

d:\path dei file selezionati
file1
file2
file3

Le MSDN dicono semplicemente che se si abilita il flag: cdlOFNAllowMultiselect (Selezione multipla dei file) con il flag cdlOFNExplorer (visualizzazione stile windows explorer), il separatore tra i file non è lo spazio ma il carattere null.

Il (mio) problema è che in fase di RunTime non posso fare la split della proprietà FileName della commondialog, con il carattere
e quindi non ho modo di ricavare i nomi dei file, aggravante, i file che devo trattare sono tutti senza estensione.

Come posso risolvere?

Grazie.

[Mabi]

Originariamente inviato da A\|dR3\V
Il (mio) problema è che in fase di RunTime non posso fare la split della proprietà FileName della commondialog, con il carattere

Perchè no ?
Il carattere di separazione è vbNullChar

Dim StrTemp As String
Dim CartellaSelezione As String
Dim File() As String
Dim Cont As Long

CD.FileName = ""
CD.Flags = &H80204
CD.ShowOpen
StrTemp = CD.FileName

If (Len(StrTemp) > 0&) Then
  If (InStr(1, StrTemp, vbNullChar) > 0&) Then
    CartellaSelezione = Left$(StrTemp, InStr(1&, StrTemp, vbNullChar))
    StrTemp = Mid$(StrTemp, InStr(1&, StrTemp, vbNullChar) + 1&)
    File = Split(StrTemp, vbNullChar)
  Else
    CartellaSelezione = Left$(StrTemp, InStr(1&, StrTemp, "\"))
    StrTemp = Mid$(StrTemp, InStr(1&, StrTemp, "\") + 1&)
    ReDim File(0)
    File(0) = StrTemp
  End If

  MsgBox "Cartella :" & vbCrLf & vbCrLf & CartellaSelezione
  For Cont = 0& To UBound(File)
    MsgBox "File " & CStr(Cont + 1&) & " :" & vbCrLf & vbCrLf & File(Cont)
  Next Cont
End If

[A\|dR3\V]

ok.
come non detto. :rollo: :rollo:
funziona perfettamente, è solo che prima facevo:

source = Split(filename1, "
")

invece di

source = Split(filename1, vbNullChar)

grazie mille!!