I have been using code like
.......................................
LL = 0
On Error Resume Next
LL = Len(wVbProj.VBComponents(CompName).Name)
If LL = 0 Then
wVbProj.VBComponents.Import (Foundfn)
End If
......................................
to import Foundfn ( found file name ) into wVbProject...
IF the CompName is nothing
test.cls imports great when component test is not there
If test is there then testa.cls imports as test1 module
then
testb.cls imports as test2 module
In general if class module abcd exists then any file like
abcd???.cls imports as abcn1,abcd,2,abcd3 ect
F1,F1,F1 Please
.......................................
LL = 0
On Error Resume Next
LL = Len(wVbProj.VBComponents(CompName).Name)
If LL = 0 Then
wVbProj.VBComponents.Import (Foundfn)
End If
......................................
to import Foundfn ( found file name ) into wVbProject...
IF the CompName is nothing
test.cls imports great when component test is not there
If test is there then testa.cls imports as test1 module
then
testb.cls imports as test2 module
In general if class module abcd exists then any file like
abcd???.cls imports as abcn1,abcd,2,abcd3 ect
F1,F1,F1 Please