Fso

[Morpheus#2005 1]

Uma pequena ajuda.

 

 

Do while Not oRS.EOF
						
		
			   DTSGlobalVariables("ID").Value = oRS.Fields(0).Value

				DTSGlobalVariables("Solicitante_Viagem").Value=  oRS.Fields(1).Value

session.findById("wnd[0]").resizeWorkingPane 143, 27, False
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[0]/okcd").Text = "/ntrip"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]/usr/ctxtPTP40-PERNR").Text = DTSGlobalVariables("ID_Solicitante_Viagem").Value
session.findById("wnd[1]/usr/ctxtPTP40-PERNR").caretPosition = 5

Const forReading = 1, forWriting = 2, forAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set ArqTxt = fso.OpenTextFile("c:\arquivo.txt", 8, True)
ArqTxt.WriteLine DTSGlobalVariables("ID").Value

oRS.MoveNext

loop

ArqTxt.Close
Set fso = Nothing
Set objStream = Nothing

Set oRS = Nothing

Main = DTSTaskExecResult_Success
End Function

 

 

O que pode estar errado nosse loop ??

[scorpio 7]

O que pode estar errado nosse loop ??

Tudo.

 

 

Qual erro dá, o que era para fazer, o que está fazendo???