FileSystemObject en API's

[Fann_Lavigne]

Saludos, talvez el titulo del mensaje sea algo extraño, pero no sabia como expresarlo en una idea corta.

Bien, alguien podria decirme cuales son las equivalencias en API's para VB6 los siguientes bloques de codigo.

Aqui quisiera CREAR un archivo de texto pero usando API's

Código:

Dim v1 As Object, v2 As Object
Set v1 = CreateObject("Scripting.FileSystemObject")
Set v2 = v1.CreateTextFile("C:\Hola.txt")
v2.Wirte "Algo de texto"
v2.Close
Set v1 = Nothing
Set v1 = Nothing

Aqui quisiera LEER un archivo de texto pero usando API's

Código:

Dim v1 As Object, leer As String, v2 As Object
Set v1 = CreateObject("Scripting.FileSystemObject")
Set v2 = v1.OpenTextFile("C:\Hola.txt")
leer = v2.ReadAll
v2.Close
Set v1 = Nothing
Set v1 = Nothing

De antemano muchas gracias, espero que alguien me pueda dar almenos el nombre de las funciones API's.

[[EX3]]

No necesitas del API para trabajar con archivos. VB ya te proporciona funciones para ello. Basicamente, para crear un archivo y escribir en el este seria el codigo:

Código:

Dim hFile As Integer

hFile = FreeFile()

Open "C:\miarchivo.txt" For Output As #hFile
    Print #hFile, "Hola mundo!"

Close #hFile

Y este para leer un archivo creado en modo Output:

Código:

Dim hFile As Integer, Texto As String

hFile = FreeFile()

Open "C:\miarchivo.txt" For Input As #hFile
    Line Input #hFile, Texto

Close #hFile

Salu2...

[VisualGuallabo]

ex3 tiene razon Vb brinda estas posibilidades , busca en el indice tematico de la faq que hay un tema mas argumentado sobre el tema del trabajo con archivos.