Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Bazooka en Enero 31, 2014, 12:09:44 pm
-
Hola amigos me está sucediendo algo muy extraño al agregar la referencia de Microsoft Scripting Runtime ya que luego de hacerlo me comienza a dar un error un ocx que utilizo en mi aplicación y que no puedo reemplazar.
Por tal motivo lo que pido es ayuda para adaptar esta Función que tengo sque la utiliza para no hacerlo:
Public Function EscribirArchivoTXT(path As String, Optional modAp As Boolean, Optional Unicode As Boolean) As Boolean
Dim NumLib As Integer, isOpen As Boolean, i As Long, tmp As String
Dim mat() As String
''''''''''''''''''''''''''''''''''''''''''''
Dim fs As Scripting.FileSystemObject
Dim fileA
'''''''''''''''''''''''''''''''''''''''''''
On Error GoTo Error
If Not Unicode Then
NumLib = FreeFile()
If modAp Then
Open path For Append As #NumLib
Else
Open path For Output As #NumLib
End If
isOpen = True
Else
Set fs = CreateObject("Scripting.FileSystemObject")
Set fileA = fs.CreateTextFile(path, True, True)
End If
If Not Unicode Then
Print #NumLib, "Encabezado"
Else
fileA.WriteLine "Encabezado"
End If
'escribe los nombres de los campos variable x ejemplo \Nº1\
For i = 1 To 24
tmp = tmp & "\#" & i & "\"
Next
If Not Unicode Then
Print #NumLib, tmp
Else
fileA.WriteLine tmp
End If
tmp = ""
EscribirArchivoTXT = True
Error:
If isOpen Then Close #NumLib
End Function
Ojalá me ayuden y entiendan.
Muchas gracias
-
Saca la referencia a la dll, y cambia
Dim fs As Scripting.FileSystemObject
por
Dim fs As Object
y todo lo demas dejalo como esta.
-
Saca la referencia a la dll, y cambia
Dim fs As Scripting.FileSystemObject
por
Dim fs As Object
y todo lo demas dejalo como esta.
GRande COCO era mas facil de lo que creia!!
Muchas gracias