error 429
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
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