DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Adding Micorsoft Scripting Runtime dll

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Aug 2007

Posts: 47

Reputation: locsin is an unknown quantity at this point

Solved Threads: 0

locsin

Offline

Light Poster

Adding Micorsoft Scripting Runtime dll

Dec 11th, 2007

Post Thread: Searching Database file if existing or not.

How to Add the Microsoft scripting runtime dll in my Project reference menu. I saw Microsoft Script in the components. Is this the file?

Anybody can help me or give me step by step procedure to add this Microsoft Scripting runtime dll in my project.

Thanks

•

Join Date: Nov 2007

Posts: 218

Reputation: hkdani is an unknown quantity at this point

Solved Threads: 24

hkdani

Offline

Posting Whiz in Training

Re: Adding Micorsoft Scripting Runtime dll

Dec 11th, 2007

scrrun.dll

That's the exact name of the dynamic link library (dll).

In that library of functions, the file system object can be referenced and used.

To add a reference to your project, simply click on the the Projects menu, click on the References Menu, and a form should show up listing the different libraries that are registered to be used with Visual Basic.

They are in alphabetical order. Look for Microsoft Scripting Runtime and check it's box, if it's not checked already. The Microsoft Script Control is a component used for writing scripts. It does not include the File System Object.

In the declarations section of your form you should declare your own File System Object. Declare an object variable

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Option Explicit
dim MyFS0 as FileSystemObject
Dim strFileName as String
Option Explicit
dim MyFS0 as FileSystemObject
Dim strFileName as String

And then you should instantiate the object or make an instance of the object using the Set statement

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Form_Load()
  Set MyFSO = New FileSystemObject
  ' You can now use it.
  if MyFSO.FileExists(strFileName) then
    '  Code if it exists 
  else
    ' Code if it doesn't exist
  endif
 
 
'  Be careful to reclaim your variable space in memory after done using the object
Set MyFSO = nothing
End Sub
Private Sub Form_Load()
  Set MyFSO = New FileSystemObject
  ' You can now use it.
  if MyFSO.FileExists(strFileName) then
    '  Code if it exists 
  else
    ' Code if it doesn't exist
  endif


'  Be careful to reclaim your variable space in memory after done using the object
Set MyFSO = nothing
End Sub