September 5, 2008 05:17am pdt

1. hielo 155,550
2. b0lsc0tt 69,599
3. julianopolito 37,020
4. mplungjan 35,100
5. scrathcyboy 26,466
6. hernst42 23,630
7. hobbit72 23,280
8. Zvonko 22,685
9. logudotcom 18,180
10. Xyptilon2 18,150
11. gdemaria 16,400
12. Kravimir 16,320
13. Ray_Pas... 15,250
14. Roonaan 14,900
15. Hube02 14,400
16. jason1178 13,130
17. gawai 12,500
18. Gertone 12,000
19. neeraj523 11,000
19. routinet 11,000
21. rowejd 10,796
22. shivaspk 10,690
23. Steggs 10,430
24. _Stilgar_ 10,205
25. SidFishes 10,100

1. amit_g 378,416
2. COBOLdi... 201,946
3. hielo 167,050
4. b0lsc0tt 142,865
5. mplungjan 136,940
6. YZlat 75,789
7. rdivilbiss 65,762
8. ryancys 64,782
9. hernst42 62,162
10. VincentPu... 61,070
11. GrandSch... 59,118
12. Roonaan 59,005
13. dorward 51,751
14. Zyloch 50,961
15. Zvonko 45,245
16. ldbkutty 42,905
17. Gertone 42,604
18. joeposter... 41,891
19. sajuks 41,478
20. gamebits 41,456
21. TeRReF 40,315
22. Steggs 37,080
23. julianopolito 37,020
24. TimYates 36,699
25. VirusMinus 35,510

04.15.2008 at 09:38PM PDT, ID: 23325996

	[x] Attachment Details

Download file attachment to local file system

Asked by popbalu in Web Languages/Standards, Scripting Languages, VB Script

Tags: IBM, Lotus Notes, 6.5, VBScript, IE 7

Hi All,

I used the ExtractFile user defined function using VBScript, that i got from an internet source.
While downloading word document file, it consumes more time. Is there any alternate solution for this?
Please suggest me any idea.

Thanks for your help Start 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:

           
           
             Sub ExtractFile(url,folder)
 
	TEMPPATH = folder & "\"
	Rem Parses the filename from the url
	outputfile = TEMPPATH & Mid(url, InStrRev(url, "/") + 1)
 
	Const ForReading = 1, ForWriting = 2, ForAppending = 8
	Set fsoMain = CreateObject("Scripting.FileSystemObject")
	Set objHTTP = CreateObject("Microsoft.XMLHTTP")
	Set fsResults = fsoMain.OpenTextFile(outputfile, ForWriting, True)
	Call objHTTP.Open("GET", url, False)
	objHTTP.Send
	Dim i
 
	REM Write the file byte by byte
	For i = 1 To LenB(objHTTP.ResponseBody)
	fsResults.Write Chr(AscB(MidB(objHTTP.ResponseBody, i, 1)))		
	Next
	Set fsoMain=Nothing
	Set objHTTP=Nothing
	Set fsResults=Nothing
 
End Sub

           
         

Keywords: Download file attachment to local file s…

	Title
1	VBScript - authentication to local wor…
2	wmiprvse.exe consumes 90% cpu
3	Word attachment error
4	How to get code to run in VBScript, It …
5	Script to change local admin password
6	Executing vbscript commands with alte…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Download file attachment to local file system

Asked by popbalu in Web Languages/Standards, Scripting Languages, VB Script

Tags: IBM, Lotus Notes, 6.5, VBScript, IE 7

About this solution