Hej Tue
"Tue Hellstern" <info@f1-support.dk> skrev i en meddelelse
news:3de20f96$0$661$edfadb0f@dread12.news.tele.dk...
> Hej Leo
>
> > Når du bruger .Column bliver arrayet transponeret, dvs. rækker bliver
til
> > kolonner og omvendt. Den bruges fx, hvis du har noget data stående
> > i A1:J1 og godt vil se det i en kolonne i listboksen.
> Det havde jeg også læst mig til i hjælpen, men jeg syntes bare ikke det
var
> det der skete. Jeg fik alle mine filnavne i kollone 2 ???
>
> > Når du har sat antal kolonner til 2, skal det også virke, hvis du bruger
> > cboNavne.List = ArrayNavne, hvor ArrayNavne har 2 dimensioner.
> Har sat det til 2 kolonner, men det virker ikke
>
> > Hvilket program er der tale om og hvilken version?
> Word XP
>
> > Hvor står dine navne, inden de bliver lagt i arrayet?
> > Hvordan ser din kode ud?
>
> Private Sub cmdHentFiler_Click()
> 'Variabler
> Dim varFileArray() As Variant 'Array
> Dim varFileCount As Integer
> Dim varFileName As String
> Dim i As Integer
> Dim varSti As String
>
> varFileCount = 0
> varFileName = Dir(txtSti.Text & txtFiltype.Text)
>
> 'Find alle filer
> Do While varFileName <> ""
> varFileCount = varFileCount + 1
> ReDim Preserve varFileArray(2, 1 To varFileCount)
> varFileArray(1, varFileCount) = varFileName
> varFileArray(2, varFileCount) = FileLen(txtSti & varFileName)
> varFileName = Dir()
> Loop
>
> 'Tilføj til Listboksen
> lstFiler.Clear 'Nulstil listboksen
> lstFiler.List = varFileArray 'Indlæs data
>
> End Sub
>
> Når jeg afvikler koden får jeg to filnavne i hver sin kolonne og to
> størrelser i hversin kolonne??
>
Hvis du mener:
Filnavn 1 Filnavn 2
Størrelse 1 Størrelse 2
så er det faktisk også det, du beder om
2 kolonner og filnavne i (1,1), (1,2), (1,3) osv.
samt størrelser i (2,1), (2,2), (2,3) osv.
Hvis jeg kører koden med rettelsen
lstFiler.Column = varFileArray
virker det fint i Word 2000, når jeg har
sat ColumnCount til 2.
For en ordens skyld bør du også rette
ReDim Preserve varFileArray(2, 1 To varFileCount)
til
ReDim Preserve varFileArray(1 to 2, 1 To varFileCount)
Jeg har ikke Word 2002 installeret, så jeg har ikke mulighed
for at teste koden i denne.
---
Med venlig hilsen
Leo Heuser