Read the files from directory

[techipa]

Hi All,

I am very new to VB programming. What I need to know is how do I wriet the VBScript to read the just the CSV files from a directory.

I have to code this in ActiveX script task in DTS. Each CSV fiel from that folder should be imported in SQL table.

Can anyone advice me on how to implement this task?

Thanks in advace,
-techiPA

 

[xwb]

Lookup the help on FileSystemObject. There are a few examples there on how to do all sorts with the file system including reading files.

 

[dm4ever]

This should get your started, it will look in a directory for CSV files.

Option Explicit
'On Error Resume Next

Dim objFSO, objFolder, objFile, strDirPath, strFileName, strExtension

strDirPath = "c:\temp"
strExtension = "csv"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strDirPath)

For Each objFile In objFolder.Files
	strFileName = UCase(objFile.Name)
	If Right(strFileName, Len(strFileName) - InStrRev(strFileName, ".")) = UCase(strExtension) Then
		WScript.Echo strFileName
	End If
Next

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[techipa]

Thanks dm4ever,

I use your code to implement my logic.

Thanks,
-techiPA