Hall of Fame

1. carrzkiss720,829
2. sybe272,601
3. hielo204,696
4. angelIII169,338
5. x_com106,709
6. R_Harrison101,107
7. ryancys98,848
8. b0lsc0tt95,363
9. jkdt007792,607
10. neeraj52388,506
11. apresto74,890
12. DanielWilson72,330
13. samic40067,360
14. rg2063,580
15. gawai62,650
16. acperkins61,340
17. golfDoctor58,470
18. sunithnair53,765
19. govindaraj...52,288
20. kevp7550,675
21. Badotz49,125
22. DarthSonic47,300
23. daveamour46,990
24. abel46,728
25. _Stilgar_44,034

1. fritz_the...3,975,430
2. alorentz1,929,293
3. amit_g1,339,338
4. hielo1,238,653
5. b0lsc0tt939,845
6. hongjun922,466
7. ap_sajith921,034
8. kevp75918,733
9. WMIF899,748
10. angelIII895,363
11. sybe837,816
12. jitganguly786,812
13. carrzkiss724,769
14. acperkins721,448
15. peh803684,060
16. ryancys679,899
17. neeraj523631,204
18. Silvers5625,555
19. carl_tawn600,110
20. GaryC123576,347
21. apresto525,417
22. golfDoctor520,113
23. SquareHead517,787
24. deighc466,721
25. gladxml429,512

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

6.4

fso loop problem

Asked by laiyede in Active Server Pages (ASP)

Tags: vbscript

Hi,
I need some help,
I am not sure where I am going wrong, I have written a script that opens, reads a text file then adds the contents to a text file in another folder. The problem I am having is the first folder has several text files and I want to loop through each text file and copy the contents of each one to the new folder but to one text file. e.g folder 1 has 6 text files and I want the contents of each file only copied to folder2 to a single text file. I also need file 5 to be ignored, as this file does not need to be added.

This works but only moves the first folder as I have declared the folder to look but the problem is it does not loop through the files and it does not ignore file 5.

Option Explicit
Dim objFSO, objFolder, objShell, objTextFile, objFile, sRead
Dim strDirectory, strFile, strText,strDirectory2, strFile2, files, file
strDirectory = "c:\fso\test"
strDirectory2 = "c:\fso2\test2"
strFile = "\fso.txt"
strFile2 = "\fso.txt"
'strText = "this should come from the txt file"

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Check that the strDirectory folder exists
If objFSO.FolderExists(strDirectory) Then
Set objFolder = objFSO.GetFolder(strDirectory)
Else

WScript.Echo " The File" & strDirectory & "does not exist"
End If

set objFile = nothing
set objFolder = nothing

Const ForAppending = 8, ForReading = 1, ForWriting = 2
set files = objFSO.GetFolder("c:\fso\test").Files
for each file in files

Set objTextFile = objFSO.OpenTextFile _
(strDirectory & strFile, 1, True)

' Writes strText every time you run this VBScript
sRead = objTextFile.ReadAll
objTextFile.Close

Set objTextFile = objFSO.OpenTextFile _
(strDirectory2 & strFile2, 2, True)

' Writes strText every time you run this VBScript
objTextFile.WriteLine(sRead)

next
objTextFile.Close
WScript.Quit

Can anyone help.

Thanks in advance

Get your answer NOW

	Title
1	Gathering info with VBScript
2	Need to do diskperf -y and install SNM…
3	Help to make a vbscript ?
4	VBScript question, Deleting files from …
5	Need to modify my vbscript to be able t…
6	How to map a drive & create folder b…

fso loop problem

Asked by laiyede in Active Server Pages (ASP)

Tags: vbscript

About this solution