Imprimir Página - guardar archivo en el escritorio.

Título: guardar archivo en el escritorio.
Publicado por: akss_wm en 2 Diciembre 2005, 06:33 am

Bueno soy principiante en esto :-[.. y tengo una duda.. estoy creando un programa, que al final me crea y guarda un archivo .txt.. usando este codigo.

Código:

Open "C:\TEXTO.txt" For Append As #1 
        Write #1, Text1.Text 
        Close #1

pues bueno, corre bien, pero como hago para guardarlo en el escritorio? como pongo la ruta para que reemplace el nombre de USUARIO

C:\Documents and Settings\USUARIO\Escritorio\TEXTO.txt"

que debo colocar en usuario? :-[ Saludos! ;)

Título: Re: guardar archivo en el escritorio.
Publicado por: ViRuSh en 2 Diciembre 2005, 09:46 am

Hola,
Puedes hacer lo siguiente:

Código:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'***********************************************************
'Función para obtener el nombre de usuario del sistema
Private Function Usuario_Windows() As String
    Dim sBuffer As String
    Dim lSize As Long
    Dim sUsuario As String
    
    sBuffer = Space$(260)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        sUsuario = Left$(sBuffer, lSize)
        'Quitarle el CHR$(0) del final...
        lSize = InStr(sUsuario, Chr$(0))
        If lSize Then
            sUsuario = Left$(sUsuario, lSize - 1)
        End If
    Else
        sUsuario = ""
    End If
    Usuario_Windows = sUsuario
End Function
'Fin de Función
'***********************************************************

Y para crear el fichero pones:

Código:

Open "C:\Documents and Settings\" & Usuario_Windows & "\Escritorio\" & "Ejemplo.txt" For Append As #1
        Write #1, Text1.Text
        Close #1

He mirado la carpeta esa a la que lleva y está vacía,
por tanto he de suponer que no va a funcionar...no estoy seguro.

Yo te recomiendo que lo guardes en: C:\WINDOWS\Escritorio
que viene a ser lo mismo y funciona a la perfeccion.

Salu2.

Título: Re: guardar archivo en el escritorio.
Publicado por: Crack_X en 2 Diciembre 2005, 11:23 am

Citar

He mirado la carpeta esa a la que lleva y está vacía,
por tanto he de suponer que no va a funcionar...no estoy seguro.

Y para que pones un codigo que no va funcionar?

@akss_wm:

Donde dice USUARIO pones tu nombre de usuario de iniciar sección en windows. Si no sabes tu nombre de usuario en XP pues le das a inicio y arriba (si estas en el estilo XP por defecto) junta a tu imagen de sección aparece tu nombre de sección.

Título: Re: guardar archivo en el escritorio.
Publicado por: akss_wm en 2 Diciembre 2005, 12:07 pm

Crack_X .. gracias.. pero si me se mi nombre de usuario, lo pregunto porke el programa lo tendra otras personas, entonces en "usuario" debe ir otra cosa, como alguna variable o algo asi.. o como dice Virush & Usuario_Windows &.. :-\ gracias eh.. probare mientras eso que dice virush..adios y graxias =)

Título: Re: guardar archivo en el escritorio.
Publicado por: Thaorius en 2 Diciembre 2005, 15:29 pm

Proba copiandolo a C:\Documents and Settings\All Users\Escritorio\Ejemplo.txt, no se copia a ese usuario pero si a todos los usuarios de lsistema.

Saludos

Título: Re: guardar archivo en el escritorio.
Publicado por: akss_wm en 3 Diciembre 2005, 06:57 am

Gracias Martin.. si resulto ;D

Título: Re: guardar archivo en el escritorio.
Publicado por: Kizar en 3 Diciembre 2005, 18:20 pm

la solucion como siempre esta en el registro, en la clave:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

Desktop

Salu2

Título: Re: guardar archivo en el escritorio.
Publicado por: germixxx en 3 Diciembre 2005, 19:02 pm

Bueno auque ya lo solucionastes propongo otra solucion creo q mas estable por si la carpeta windows no esta en "c:\windows"

Código:

Static Escritorio As String
Set m_wsshell = CreateObject("WScript.Shell")
Escritorio = m_wsshell.SpecialFolders.Item("Desktop")
Open Escritorio & "\" & "Ejemplo.txt" For Append As #1
        Write #1, Text1.Text
        Close #1

Título: Re: guardar archivo en el escritorio.
Publicado por: akss_wm en 15 Diciembre 2005, 11:23 am

:oOhh muchas gracias, tienes razon ... no lo habia pensado.. ;)

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: akss_wm en 2 Diciembre 2005, 06:33 am