August 30, 2008 04:25am pdt

1. chapmandew 115,410
2. acperkins 65,629
3. nmcdermaid 54,964
4. cs97jjm3 33,643
5. brejk 30,000
6. PedroCGD 27,580
7. angelIII 26,085
8. frankytee 24,691
9. mark_wills 22,185
10. dready 18,000
11. EugeneZ 16,950
12. bhess1 15,550
13. Zberteoc 13,050
14. matthews... 12,250
14. rickchild 12,250
16. JimFive 8,375
17. MohammedU 8,325
18. aneeshatti... 7,802
19. momi_sa... 7,750
20. dbbishop 7,300
21. pratima_... 7,150
22. ptjcb 7,120
23. paulop1... 7,100
24. dbaSQL 6,065
25. dportas 6,000

1. acperkins 333,878
2. nmcdermaid 167,681
3. angelIII 166,501
4. arbert 149,684
5. chapmandew 115,410
6. EugeneZ 67,768
7. matthews... 50,304
8. aneeshatti... 41,799
9. cs97jjm3 40,173
10. ptjcb 38,638
11. rboyd56 37,425
12. bhess1 35,130
13. brejk 30,000
14. PedroCGD 29,080
15. dready 28,430
16. Sirees 27,902
17. twoboats 27,515
18. frankytee 27,441
19. jltoops 27,275
20. Yveau 25,800
21. TommyTupa 23,000
22. Lowfatsp... 22,395
23. mark_wills 22,185
24. Kevin3NF 20,630
25. imran_fast 20,539

07.08.2008 at 01:44PM PDT, ID: 23548238

	[x] Attachment Details

Making sure FSO.Write finishes writing before moving on

Asked by jamesrbarnes in MS SQL DTS, MS SQL Server, Visual Basic Programming

Tags: Microsoft, SQL 2000

I am writing a DTS package that reads in a text file. If the file is larger than 60,000 lines it breaks it into files of 60,000 lines.

I am using the fso.line property to check when the read gets to 60,000 lines and then it creates a new file. The problem is the last line doesn't write fully before the file is closed and the first line of the new file begins where the last one left off. Is there a way to check to see if the write process is complete before closing the file and beginning a new one?

The code I am using is attached below.Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

           
           
             iLineCounter = 60000
 
	set filesys = CreateObject("Scripting.FileSystemObject")
	Set text = filesys.CreateTextFile(sFullFileName)
 
	set readfile = filesys.OpenTextFile(sReadFileName, 1, false)
	Do Until ReadFile.AtEndOfStream
		If readFile.Line > iLineCounter Then 
			text.Close
			iLineCounter = iLineCounter + 60000
			iFileIncrement = iFileIncrement + 1
			sFileName = "MMDB_COSMOS_" & sFileDate & "_" & sFileYesterday & "004450" & iFileIncrement & ".dat"
			sFullFileName = "\\unpiox51pn\ova_mbr_sql\MMDB\DBSW\PTEST\" & sFileName
			Set text = filesys.CreateTextFile(sFullFileName)
		End If
		contents = readfile.Read(665)
		text.Write contents
	Loop
	readfile.close
	text.close

           
         

Keywords: Making sure FSO.Write finishes writin…

	Title
1	Trigger a bat file in a script, and wait …
2	DTS
3	Saving hundreds of DTS package in vi…
4	SQL DTS Package not executing all the …
5	GetDates for DTS package
6	DTS Package Jobs

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Making sure FSO.Write finishes writing before moving on

Asked by jamesrbarnes in MS SQL DTS, MS SQL Server, Visual Basic Programming

Tags: Microsoft, SQL 2000

About this solution