Problema con System.Windows.Forms.Keys y Space(LOF(1))

[chacKos]

Hola! Estoy en una aplicación en la que he puesto esta línea, Imports System.Windows.Forms.Keys, ya que necesito trabajar con las teclas, y en el código necesito utilizar Space(LOF(1)) para trabajar con ficheros. El problema es el siguiente, al tener hecho el Imports, el Space lo toma como si fuera una tecla, pero yo quiero utilizar la función de Space(LOF(1)) sin que me afecte lo otro. Cómo se puede solucionar?

Gracias.

[raul338]

Estoy desde el mobil así que no puedo escribir tan bien formateado xD. Tú problema es que usas funciones que vienen de  la versión 6 y son obsoletas. Usa string.padleft(lof(1)) y para los archivos usa streams. Quedaría x ejemplo: string.padleft(streamreader.length) espero que te sirva

[chacKos]

Eso no me lo reconoce!

[raul338]

Para usar los streams debes importar System.IO

[chacKos]

Sigo sin entenderlo, a ver yo tengo un fichero,

Código [Seleccionar] Expandir


FileOpen(1, Application.StartupPath & "\file.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
file= Space(LOF(1))
FileGet(1, file)
FileClose(1)

Cómo sería el código en vb.net?

[raul338]

Código (vbnet) [Seleccionar] Expandir


Imports System.IO

Public Function LeerArchivos(ByVal archivo as String) As String
    Dim sr As StreamReader = File.OpenText(archivo)
    Dim contenido = sr.ReadToEnd();
    sr.Close()
    return contenido


y para usarlo:

Código (vbnet) [Seleccionar] Expandir


TextBox1.Text = LeerArchivo(Application.StartUpPath & "\archivo.txt")


Eso para leer archivos de texto, para archivos binarios no cambia mucho

[chacKos]

Que va sigo sin entenderlo, no veo como abrirlo en binario ni como agregarle LOF(1)

[chacKos]

Bueno ya lo he conseguido. Queda de esta forma:

Código [Seleccionar] Expandir


Dim file As String
file= file.PadLeft(LOF(1))