Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Visual Basic > VB 6 Visual Basic 6 > Pro VB 6
Password Reminder
Register
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Pro VB 6 For advanced Visual Basic coders working in version 6 (not .NET). Beginning-level questions will be redirected to other forums, including Beginning VB 6.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Pro VB 6 section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developersí questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Display Modes
  #1 (permalink)  
Old July 30th, 2007, 04:44 PM
Registered User
 
Join Date: Apr 2007
Location: , , Libya.
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via Yahoo to deco
Default runtime automation error library not registered

I try to list the contents of folder by using the FileSystemObject Library the
run-time error '-2147319779(8002801d)'; automation error library not registered
is appears buti use the same application in another computer and its run
i check the reference microsoft scripting runtime
the code
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
deco
__________________
deco
Reply With Quote
  #2 (permalink)  
Old July 30th, 2007, 11:27 PM
Friend of Wrox
Points: 2,950, Level: 22
Points: 2,950, Level: 22 Points: 2,950, Level: 22 Points: 2,950, Level: 22
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Sep 2005
Location: , , .
Posts: 788
Thanks: 1
Thanked 51 Times in 47 Posts
Default

In the other machine, the machine that shows automation error, run the setup of your program (If you have it)

or

use the following in the run window (Start-->Run) to register the dll

regsvr32 scrrun.dll

Cheers
Shasur


http://www.dotnetdud.blogspot.com
Reply With Quote
  #3 (permalink)  
Old July 31st, 2007, 08:09 AM
Registered User
 
Join Date: Apr 2007
Location: , , Libya.
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via Yahoo to deco
Default

use the following in the run window (Start-->Run) to register the dll

regsvr32 scrrun.dll

it's ok thanks
:)


deco
Reply With Quote
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Error : Registered JIT debugger is not available. kvgujrathi VS.NET 2002/2003 1 January 3rd, 2010 09:56 AM
Version of .NET runtime registered on IIS Bob Bedell ASP.NET 1.0 and 1.1 Professional 3 October 17th, 2006 03:13 PM
ASP Page Error '8002801d' Library not registered. jfelgueiras Classic ASP Components 0 February 13th, 2006 11:44 AM
ASP Error 8002801d "Library Not Registered" jfelgueiras Classic ASP Basics 0 February 13th, 2006 11:38 AM
Include Library Reference at RunTime Stoney Excel VBA 4 January 14th, 2005 02:40 AM



All times are GMT -4. The time now is 07:03 PM.


Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.