run-time automation error library not registred

[deco]

I try to list the contents of folder by usinng the FileSystemObject Library the
run-time error '-2147319779(8002801d)'; automation error library not registred
is appears but i use the same application in another computer and its run
i check the reference microsoft scripting runtime
the code

Dim FSO As New FileSystemObject
Dim FileInFolder As Files
Dim FileName As File
Dim I As Integer
Dim FolderInPath As String
Private Sub Command1_Click()
 
    Set FileInFolder = FSO.GetFolder("C:\Program Files\NowSMS\SMS-IN").Files
 
    For Each FileName In FileInFolder
        List1.AddItem FileName
        DoEvents
    Next
 
    For I = 0 To List1.ListCount - 1
          FolderInPath = Replace(List1.List(I), "C:\Program Files\NowSMS\SMS-IN\", App.Path & "\CopyOf(SMS-IN)\" & "(" & I & ")")
          FSO.CopyFile List1.List(I), FolderInPath, False
    Next I
 
End Sub

[Killer42]

Perhaps the Microsoft Scripting Runtime library is not installed on the target computer?

[deco]

Perhaps the Microsoft Scripting Runtime library is not installed on the target computer?

its installed in the system32 (SCRRUN.DEP and scrrun.dll)

[deco]

thanks i find the problem its the library not registred and i used the (start => run)
(regsvr scrrun.dll) command to register the scrrun library

Deco

[Killer42]

thanks i find the problem its the library not registred and i used the (start => run)
(regsvr scrrun.dll) command to register the scrrun library

Great! Glad to hear you've got it sorted out.