DN_UserID		=	"daeheung"
DN_Pass			=	"dhsvr#4843"
DN_Catalog		=	"fmsignal"
DN_IP			=	"172.16.1.3,1433"

Set adoCn = CreateObject("ADODB.Connection")
strConnect = "Provider=SQLOLEDB.1;Password="&DN_Pass&";Persist Security Info=True;User ID="&DN_UserID&";Initial Catalog="&DN_Catalog&";Data Source="&DN_IP&";"
adoCn.Open strConnect


const FolderName = "C:\Bank_InCome"
const InFolderName = "C:\Bank_InComeBack"

call getFolder(FolderName, 0, true, true, InFolderName)



Sub FileCk(RealFile, FolderName)
	If Len(RealFile) > 0 Then
		set fs = createobject("scripting.filesystemobject")
		set filename = fs.opentextfile(FolderName&RealFile)

		Do While Not filename.AtEndOfStream
		  txtLine = filename.ReadLine
		  RalData = RalData&txtLine&"LineOut"
		Loop
		filename.close


		RalData = Split(RalData,"LineOut")

		For i = 0 To Ubound(RalData)
			If i > 0 Then
				IntData = Split(Replace(RalData(i),";",""),",")
				If Ubound(IntData) > 0 Then

					SQL = "SELECT * FROM BankAccount "
					SQL = SQL & "WHERE Column02='"&IntData(1)&"' and Column03='"&IntData(2)&"' and Column04='"&IntData(3)&"' and Column05='"&IntData(4)&"' and Column06='"&IntData(5)&"' "
					SQL = SQL & "and Column07='"&IntData(6)&"' and Column08='"&IntData(7)&"' and Column09='"&IntData(8)&"' and Column10='"&IntData(9)&"' and Column11='"&IntData(10)&"' "
					Set Rec = adoCn.Execute(SQL)
					If Rec.BOF or Rec.EOF then
					   strSQL = "INSERT INTO BankAccount(Column01,Column02,Column03,Column04,Column05,Column06,Column07,Column08,Column09,Column10,Column11) VALUES ("
					   strSQL = strSQL & "'"&IntData(0)&"','"&IntData(1)&"','"&IntData(2)&"','"&IntData(3)&"','"&IntData(4)&"','"&IntData(5)&"',"
					   strSQL = strSQL & "'"&IntData(6)&"','"&IntData(7)&"','"&IntData(8)&"','"&IntData(9)&"','"&IntData(10)&"'"
					   strSQL = strSQL & ") "
					   adoCn.execute(strSQL) 
					else
					end if
					Rec.Close
					Set Rec = Nothing

		  		End if
			End if
		Next

		set filename=nothing
		set fs=nothing
	End if
End Sub



function getFolder(sPath, iDepth, bSonFdr, bShowFile, sInPath)
	Dim fso, objFolder
	Dim folders, folder
	Dim files, file

	Set fso = CreateObject("Scripting.FileSystemObject")
	Set objFolder = fso.GetFolder(sPath)
	set folders = objFolder.SubFolders
	Set files = objFolder.Files
	set objFolder = nothing
	For Each folder in folders
		if bSonFdr then
			call getFolder(sPath&"\"&folder.name, iDepth+1, bSonFdr, bShowFile, sInPath&"\"&folder.name)
			fso.DeleteFolder(sPath&"\"&folder.name)
		end if
	Next

	if bShowFile then
		For Each file in files
			Call FileCk(file.name, sPath&"\")

 			If Not Fso.FolderExists(sInPath) Then
 				Fso.CreateFolder(sInPath)
 			End If
			fso.CopyFile sPath&"\"&file.name,sInPath&"\"&file.name,true
			fso.DeleteFile(sPath&"\"&file.name)
		Next
	end if
	set fso = nothing
end Function