error 429

ferreirosoft
31 de Mayo del 2006
si alguien me puede ayudar, lo agradeceria :

escribi un programita en visual basic 6.0 que lee de un directorio
formularios con la extension .htm y arma un archivo de texto.
este programa lo corro en windows 98 y windows 2000 y funciona
correctamente, pero cuando lo corro en windows xp me da el error :

error 429 en tiempo de ejecucion, el componente activex no se puede
crear el objeto

el programa se para en la instruccion :
Set fsoArchivoSalida = CreateObject("Scripting.FileSystemObject")

y no puedo determinar el porque del error, acompaño el codigo por si
alquien puede ayudarme. Desde ya muchas gracias.

Dim ArchivoSalida As TextStream
Dim fsoArchivoSalida As New FileSystemObject

Sub CargarFile(FileName As String)
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim reg As String
Dim Cuit As String
Dim Nombre As String
Dim Actividad As String
Dim FechaInicio As String
Dim Domicilio As String
Dim CodigoPostal As String
Dim Localidad As String
Dim rs As ADODB.Recordset
Dim RegistroSalida As String

Actividad = ""
FechaInicio = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(FileName, ForReading)

While Not ts.AtEndOfStream
reg = ts.ReadLine

If InStr(reg, "CUIT:") Then
Cuit = reg
Cuit = Mid(reg, InStr(Cuit, "-") - 2, 13)
reg = ts.ReadLine

Nombre = Mid(reg, InStr(reg, "SIZE=2>") + 7, InStr(reg,
"</FONT></i>") - InStr(reg, "SIZE=2>") - 7)
reg = ts.ReadLine

If InStr(reg, "Fecha Contrato Social") = 0 Then
Nombre = Nombre & " " & Mid(reg, InStr(reg, "SIZE=2>")
+ 7, InStr(reg, "</FONT></i>") - InStr(reg, "SIZE=2>") - 7)
End If
End If

If InStr(reg, "Actividad principal:") And Actividad = "" Then
Actividad = Mid(reg, InStr(reg, "SIZE=2>") + 7, 6)
End If
If InStr(reg, "Fecha de inicio:") And FechaInicio = "" Then
FechaInicio = Mid(reg, InStr(reg, "SIZE=2>") + 7, 10)
End If

If InStr(reg, "Domicilio Fiscal") Then
reg = ts.ReadLine
reg = ts.ReadLine
Domicilio = Mid(reg, InStr(reg, "SIZE=2>") + 7, InStr(reg,
"</FONT>") - InStr(reg, "SIZE=2>") - 7)
reg = ts.ReadLine
reg = ts.ReadLine
CodigoPostal = Mid(reg, InStr(reg, "SIZE=2>") + 7, 4)
Localidad = Mid(reg, InStr(reg, "SIZE=2>") + 12,
InStr(reg, "</FONT>") - InStr(reg, "SIZE=2>") - 12)
End If

Wend


' Set rs = New ADODB.Recordset
' rs.CursorLocation = adUseServer

' rs.Open " insert into nomicapital (" & _
' " cuit, nombre, domifiscal, localidad, codpos,
codactividad, fechainicioacti) values ( " & _
' "'" & Cuit & "','" & Nombre & "','" & Domicilio & "','" &
Localidad & "','" & CodigoPostal & _
' "'" & Actividad & "', '" & FechaInicio & "')",
Basedatos.Connection


RegistroSalida = Cuit & "@" & Nombre & "@" & Domicilio & "@" &
Localidad & "@" & CodigoPostal & _
"@" & Actividad & "@" & FechaInicio & "@0"

ArchivoSalida.WriteLine RegistroSalida

ts.Close
End Sub

Private Sub Command1_Click()
'Dim fso As New FileSystemObject
Dim fsoArchivoSalida As New FileSystemObject
Dim i As Double
If MsgBox("Ha Borrardo El Archivo", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
End If


'Basedatos.Connection.Open
Set fsoArchivoSalida = CreateObject("Scripting.FileSystemObject")
Set ArchivoSalida = fsoArchivoSalida.OpenTextFile(NombreSalida,
ForWriting)

For i = Desde To Hasta
CargarFile NombreArchivo & i & ".htm"

Next i

ArchivoSalida.Close

' Proyecto -> Referencias -> Mircrosoft Scripting Run Time

End Sub





mvallejos
31 de Mayo del 2006
Fijate en la PC con xp si existe el archivo

SCRRUN.DLL

Saludos