RE: Exporting to Text

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

RE: Exporting to Text

Logged in as: Guest

arrSession:exec spGetSession 2,2,42926

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> RE: Exporting to Text
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: << < prev 1 [2]

Message

<< Older Topic Newer Topic >>

RE: Exporting to Text - 2/27/2007 3:29:57 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim strFile
Dim oFile

strFile = oFSO.OpenTextFile("\\163.197.117.41\Quantum\Q059DAY", 1).ReadAll()
strFile = Replace(strFile, Chr(34), "")
Set oFile = oFSO.OpenTextFile(\\163.197.117.41\Quantum\Q059DAY, 2)
oFile.Write strFile
oFile.Close

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ylafia)

Post #: 21

RE: Exporting to Text - 2/27/2007 3:43:07 AM

ylafia

Posts: 14
Score: 0
Joined: 2/6/2007
Status: offline

thanks for the code how ever it just comes up with a runtime error?

(in reply to ebgreen)

Post #: 22

RE: Exporting to Text - 2/27/2007 3:45:51 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

what error on what line?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ylafia)