elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  guardar archivo en el escritorio.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: guardar archivo en el escritorio.  (Leído 1,721 veces)
akss_wm

Desconectado Desconectado

Mensajes: 49


Ver Perfil
guardar archivo en el escritorio.
« 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! ;)


En línea

ViRuSh

Desconectado Desconectado

Mensajes: 4


Ver Perfil
Re: guardar archivo en el escritorio.
« Respuesta #1 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.


« Última modificación: 2 Diciembre 2005, 10:13 am por ViRuSh » En línea

Crack_X
Anti-War
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.322


Peace & Love


Ver Perfil WWW
Re: guardar archivo en el escritorio.
« Respuesta #2 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.
En línea

Shit loads of money spend to show us wrong from right. Say no to war


Yasser Has Things To Say
WarZone
akss_wm

Desconectado Desconectado

Mensajes: 49


Ver Perfil
Re: guardar archivo en el escritorio.
« Respuesta #3 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 =)
En línea

Thaorius


Desconectado Desconectado

Mensajes: 1.073


Ver Perfil WWW
Re: guardar archivo en el escritorio.
« Respuesta #4 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
En línea

Si te sirvio mi aporte, encontrarás más en www.teoxstudios.com. Gracias!
Buscando un buen hosting? Click aquí
akss_wm

Desconectado Desconectado

Mensajes: 49


Ver Perfil
Re: guardar archivo en el escritorio.
« Respuesta #5 en: 3 Diciembre 2005, 06:57 am »

Gracias Martin.. si resulto  ;D
En línea

Kizar


Desconectado Desconectado

Mensajes: 1.325


kizar_net


Ver Perfil
Re: guardar archivo en el escritorio.
« Respuesta #6 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
En línea

germixxx

Desconectado Desconectado

Mensajes: 26



Ver Perfil
Re: guardar archivo en el escritorio.
« Respuesta #7 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
En línea

akss_wm

Desconectado Desconectado

Mensajes: 49


Ver Perfil
Re: guardar archivo en el escritorio.
« Respuesta #8 en: 15 Diciembre 2005, 11:23 am »

 :oOhh muchas gracias, tienes razon ...  no lo habia pensado..  ;)
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Guardar archivos en escritorio Win7
Windows
WifliX 2 2,757 Último mensaje 21 Mayo 2012, 20:52 pm
por WifliX
Guardar listview en archivo « 1 2 3 4 »
.NET (C#, VB.NET, ASP)
SγиtαxEяяoя 35 11,941 Último mensaje 19 Julio 2013, 23:04 pm
por z3nth10n
Archivo vbs que borre carpeta escritorio.
Análisis y Diseño de Malware
cybercristina30 7 4,046 Último mensaje 8 Agosto 2016, 05:21 am
por tincopasan
Guardar ArrayList en archivo txt
Java
Arkzas 3 13,585 Último mensaje 9 Junio 2017, 06:27 am
por cunian
JFileChooser guardar un archivo con nombre preterminado
Java
SrTrp 1 1,599 Último mensaje 22 Noviembre 2018, 11:04 am
por rub'n
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines