Moving macro from Excell 2003 to Excell 2010

[JanoT]

Hi,
my macro Excell 2003 starts:
.
.
Dim fso As New FileSystemObject
Set co = CreateObject("Scripting.FileSystemObject")
Set wf = Application.WorksheetFunction
Set fs = Application.FileSearch
.
.

I have tried run in Excell 2010 and there appeard error message:

Compile error:
Can´t find project or library.

Could somebody advice me?

 

[Sektor]

Actually, FileSearch object exists in Excel 2007/2010 object model (you can see this by selecting "Show Hidden Members" when righ-click in Object Browser). However, it doesn't work.
What do you try to achieve?

 

[JanoT]

Actually, FileSearch object exists in Excel 2007/2010 object model (you can see this by selecting "Show Hidden Members" when righ-click in Object Browser). However, it doesn't work.
What do you try to achieve?

I use DIM .... from reason that I use next code in one part of my macro:


uzbolo:
If fso.FolderExists(Sub_down & "\" & TRSNumber) Then
GoTo uzbolo1
Else
fso.CreateFolder Sub_down & "\" & TRSNumber
End If
uzbolo1:
Worksheets("Temp").Activate

JanoT

 

[Sektor]

uzbolo:
If fso.FolderExists(Sub_down & "\" & TRSNumber) Then
GoTo uzbolo1
Else
fso.CreateFolder Sub_down & "\" & TRSNumber
End If
uzbolo1:
Worksheets("Temp").Activate

What for uzbolo1? Isn't it easier following?

uzbolo:
    If fso.FolderExists(Sub_down & "\" & TRSNumber) Then
        Worksheets("Temp").Activate
    Else
        fso.CreateFolder Sub_down & "\" & TRSNumber
    End If

The thing is in your code sheet "Temp" will be activated EVERY TIME.

 

[JanoT]

What for uzbolo1? Isn't it easier following?

uzbolo:
    If fso.FolderExists(Sub_down & "\" & TRSNumber) Then
        Worksheets("Temp").Activate
    Else
        fso.CreateFolder Sub_down & "\" & TRSNumber
    End If

The thing is in your code sheet "Temp" will be activated EVERY TIME.

It was an example, after Uzbolo1 there are anothe codes not only Worksheet(!Tem!).Activate

I have send you my workbook by mail. Could you analyze in in Excell 2010.

Thanks.

 

[Sektor]

You got missing FName 2.0 Type Library.