Filesearch en textbox problemen

[harolda1980]

Kan iemand zeggen waarom de gevonden bestanden niet in mijn textbox verschijnen.

Private Sub Cmdload_Click()
Sheets("gef").Select
Range("rloc").Select
Lookinloc = ActiveCell

With Application.FileSearch.SearchFolders

.NewSearch
.LookIn = Lookinloc 'HIER VERANDEREN
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Filename = ".XLS" 'HIER VERANDEREN
.LastModified = msoLastModifiedAnyTime

If .Execute > 0 Then

For lCount = 1 To FoundFiles.Count

'HIER GAAT HET MIS. met add item
LB1file.AddItem .FoundFiles[lCount]

Next lCount

End If

End With

End Sub

 

[Guus2005]

misschien moet je lus niet vanaf 1 maar vanaf 0 lopen tot aan count-1
dan is er waarschijnlijk maar 1 gevonden. als je dan 1 opvraagt dan krijg je een foutmelding.

HTH

 

[harolda1980]

maar ik krijg ook de foutmelding dat additem niet werkt in excel 2007?

Weet je hier ook een oplossing voor?

 

[harolda1980]

Heb net nog even gekeken.

Er gaan een aantal dingen fout en ik soms ze hier op

With Application.FileSearch deze herkent hij niet meer wat is het vernieuwde commando hierbij

Me.LB1file.AddItem .FoundFiles(lCount)
additem wordt ook niet ondersteund dus hoe voeg ik de gevonden bestanden nu toe?

 

[Guus2005]

Uiteindelijk gat er dus een hele berg fout. Om te beginnen bij het begin, verdiep je in het DIR commando in VBA.

 

[harolda1980]

Ga ik doen.. Maar waarom werkt dit niet in 2007 deze code werkte altijd in 2003? Of is er echt zo veel veranderd.

 

[harolda1980]

Ik zit toch echt vast.. kom er niet uit ook niet met dir.

Alles wat ik zoek en intoets accepteerd vba niet.. zou je is een voorbeeld code kunnen maken?

 

[harolda1980]

Ik heb na lang zoeken een oplossing gevonden. Probleem nr twee

Debug print
Hoe krijg ik dit vanuit het venster direct naar een excel blad of in een textbox.

 

[harolda1980]

Filesearch

Hier de oplossng

Function FileList(fldr As String, Optional fltr As String = "*.*") As Variant
    Dim sTemp As String, sHldr As String
    If Right$(fldr, 1) <> "\" Then fldr = fldr & "\"
    sTemp = Dir(fldr & fltr)
    If sTemp = "" Then
        FileList = Split("No files found", "|")  'ensures an  array is returned
        Exit Function
    End If
    Do
        sHldr = Dir
        If sHldr = "" Then Exit Do
        sTemp = sTemp & "|" & sHldr
     Loop
    FileList = Split(sTemp, "|")
End Function

Hieronder heb ik hem naar een werkblad laten uitvoeren ipv. van de Debug print

Sub testit()
        Sheets("gef").Select
        Range("M1").Select
    myvar = FileList("W:\Autobes\Periode controle\MST")
    For i = LBound(myvar) To UBound(myvar)
        ActiveCell = myvar(i)
        ActiveCell.Offset(1, 0).Select
    Next
End Sub

 

[snb]

Of zo:

Function FileList(fldr As String) As String
   FileList = "No files found"

   c1=dir(fldr)
   Do until c1 =""
     filelist = filelist  & "|" & c1
     c1=dir
   Loop
End Function

Sub testit()
  FileList "W:\Autobes\Periode controle\MST\*.csv"
  Sheets("gef").Range("M1"M" & ubound(split(filelist,"|"))+1).worksheetfunction.transpose(split(filelist,"|")) 
End Sub

 

[harolda1980]

Zit nu een hele dag met Filesearch te stoeien nu!

Ja dan heb ik een vraagje!

Hoe kan ik de folder een directory laten oppakken door een variable
die ik steeds anders kan defineren?

 

[snb]

In 2007 bestaat filesearch niet meer.
Gebruik dir of getfolder().files

c0="E:\"
for j= 1 to 5
for each fl in createobject("Scripting.filesystemobject").getfolder(c0 & choose(j,"OF","tekst","corr","zakelijk",financien")).files
  if right(fl.name,4)=".csv" then c1=c1 & "|" & fl.name
Next
Combobox1.list=split(c1,"|")

 

[harolda1980]

ja en dit pakt dus die variable op?

 

[snb]

Ter illustratie heb ik mijn vorige post aangeapst.