November 19, 2008 02:13am pst

10.10.2008 at 08:30AM PDT, ID: 23804477

	[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!

8.2

ActiveX script to check for a file in a directory, log the filename and then rename it

Asked by SurreyWebDesigner in VB Script, MS SQL DTS, ActiveX

Tags: Microsoft, SQL Server, 2000

Hi Experts,

I currently have the attached script working as a .vbs file on my desktop, but I didn't write it and I don't have any experience in this kind of thing, which is causing me a problem as I need to modify it to do what I need.

Basically, I need to include an ActiveX script in a dts package that I'm working on that will check a folder to make sure there is a file in there (which will always start with the same string but will end with a random one). There should only ever be one file in there. Once it's checked that it is there it needs to somehow make a note of the original filename. Ideally this would be stored in a database table as I'll need to reference it later. Then it needs to rename the file to 'feed.in'

Can anyone help with modifying this script to do what I need, or possibly writing a new one that will do the job??

Please note that this is just a script I found elsewhere on EE so the fact that it renames all of the files in a directory doesn't relate to what I actually need it to do, it's just that this was the closest I could get to what I wanted!

Many thanks in advance.
SWDStart Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

           
           
             Const folder = "C:\documents and settings\swd\my documents\testfolder"
Const logfile = "logfile.log"
 
' ===
 
If folder = "" OR logfile = "" Then
	WScript.Quit
End If
 
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
 
Set objfolder = fso.GetFolder(folder)
 
If fso.FileExists(folder & "\" & logfile) Then
	fso.DeleteFile(folder & "\" & logfile)
End If
Set objlog = fso.CreateTextFile(folder & "\" & logfile, true)
 
Call LoopFolder(objfolder)
 
 
Sub LoopFolder(folderobj)
	
	
	Set objfiles = folderobj.files
	Set objsubfolders = folderobj.subfolders
	
	for each subfolder in objsubfolders
		Call LoopFolder(subfolder)
	next
	
	i = 1
	
	for each file in objfiles
		if not file.Name = logfile Then
		objlog.WriteLine("[" & Now() & "] Renaming File " & file.Name & " to " & folderobj.Path & "\" & folderobj.Name & i & "." & fso.GetExtensionName(file.Name))
		file.Move folderobj.Path & "\" & folderobj.Name & i & "." & fso.GetExtensionName(file.Name)
		End If
i = i+1
	next
	
End Sub

           
         

Keywords: ActiveX script to check for a file in a di…

	Title
1	Expected Identifier Error in ActiveX Scr…
2	ActiveX on HTML
3	DTS insert error
4	Close ActiveX control when click button
5	ActiveX script in DTS package
6	ActiveX in SQL Server Enterprise Man…

Loading Advertisement...

20081112-EE-VQP-42 - Hierarchy / EE_QW_2_20070628

1. RobSamp... 1,480,265
2. purplepo... 344,613
3. sirbounty 263,700
4. Shift-3 258,936
5. zorvek 241,179
6. rorya 225,957
7. merowinger 184,304
8. sungenw... 151,691
9. saurabh726 146,165
10. BlueDevilF... 129,310
11. weellio 127,160
12. hielo 107,420
13. chris_bot... 100,908
14. nutsch 94,700
15. rejoinder 90,560
16. byundt 83,818
17. matthews... 76,670
18. jared_luker 75,690
19. robberbaron 70,985
20. brettdj 70,250
21. GrahamSkan 66,608
22. AmazingT... 66,200
23. jeverist 61,396
24. gregcmcse 56,830
25. Chris-Dent 56,272

1. RobSamp... 2,457,031
2. sirbounty 580,784
3. purplepo... 364,063
4. zorvek 307,669
5. rorya 305,676
6. Shift-3 288,341
7. merowinger 198,879
8. BlueDevilF... 192,660
9. chandru_... 184,713
10. weellio 168,155
11. saurabh726 154,085
12. sungenw... 151,691
13. matthews... 143,014
14. Chris-Dent 142,322
15. GrahamSkan 127,858
16. hielo 114,020
17. chris_bot... 112,969
18. jeverist 111,596
19. amit_g 110,710
20. byundt 97,926
21. Idle_Mind 97,540
22. robberbaron 96,181
23. nutsch 94,700
24. rejoinder 90,560
25. angelIII 85,187

ActiveX script to check for a file in a directory, log the filename and then rename it

Asked by SurreyWebDesigner in VB Script, MS SQL DTS, ActiveX

Tags: Microsoft, SQL Server, 2000

About this solution