×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

VBS writing to an Access table

VBS writing to an Access table

VBS writing to an Access table

(OP)
hello to all

I'm VERY new at VBS. The following code gets the names of all the .mdb files in a specified folder, then
writes these names to a file called TEST3.txt. It works perfectly.

What I want to do instead is write the mdb file names to an ACCESS table. (in TEST4.mdb, table tblTEST5)

Could some kind soul show me how to modify the code to do this? Many thanks in advance.

CODE

Dim fso 
	Dim ObjFolder 
	Dim ObjOutFile 
	Dim ObjFiles 
	Dim ObjFile  

	Set fso = CreateObject("Scripting.FileSystemObject")               'Creating File System Object  
	Set ObjFolder = fso.GetFolder("E:\ARCHIVEa_3")	                   'Getting the Folder Object   
        Set ObjOutFile = fso.CreateTextFile("C:\TEST3.txt"                 'Creating an Output File to write the File Names   
	Set ObjFiles = ObjFolder.Files  				   'Getting the list of Files 

	For Each ObjFile In ObjFiles     				   'Writing Name  to Output File 
		If Right(ObjFile.Name, 4) = ".mdb" then

			ObjOutFile.WriteLine(ObjFile.Name)
			
		End If
	Next  

	ObjOutFile.Close 

RE: VBS writing to an Access table

You need to connect to Access using either ODBC or OLEDB. The connection string and version of access are important. Almost anything will connect to an mdb file but only certain versions will connect to accdb files.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close