stukje code van 2003 naar 2007

[bob1208]

ik heb hier een stukje code en deze functioneerd niet meer in 2007 kan iemand mij hier bij helpen. ik krijg de fout op: With Application.FileSearch

Selection.TypeParagraph
'Dim MapNaam As String, PadNaam As Variant
If MapNaam > "" Then
'zoeken in map naar bestanden
With Application.FileSearch
.FileName = "*.bmp;*.gif;*.jpg"
.LookIn = MapNaam
.SearchSubFolders = False
.Execute

alvast heel erg bedankt.

 

[HSV]

Gebruik de zoekfunctie eens van dit forum, en type alleen maar 'Filesearch' in.
Een paar vragen van boven staat daar het antwoord.

 

[bob1208]

heb ik geprobeerd maar lukte mij niet.

 

[HSV]

Het zoeken lukte je niet?

 

[bob1208]

nee de oplossing werkte niet.
ik weet niet wat ik fout deed.