hej..
er løbet ind i et problem...
jeg har en combobox (combo1)
i form_load vil jeg gerne have en kode som propper alle de filer fra mappen "C:\\TS-Flash\\" som slutter på *.swf in på listen i comboboxen
kenneth
Du kan bruge denne kode
<pre>
Path = "C:\\qb\\"
Set fso = New FileSystemObject
Set objFiles = fso.GetFolder(Path).Files
For Each objFile In objFiles
Debug.Print objFile.Name & vbCrLf
If LCase$(Right$(objFile.Name, 3)) = "swf" Then
Combo1.AddItem objFile.Name
End If
Next
</pre>
Hvis du tilføjer referencen Microsoft Scripting Runtime, ved at gå ind i (VB 6.0) Project > Reference > og sæt hak ud for den.
Mvh.
Thomas Christensen
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41