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.
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! ;)
Hola,
Puedes hacer lo siguiente:
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:
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.
CitarHe 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.
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 =)
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
Gracias Martin.. si resulto ;D
la solucion como siempre esta en el registro, en la clave:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
Desktop
Salu2
Bueno auque ya lo solucionastes propongo otra solucion creo q mas estable por si la carpeta windows no esta en "c:\windows"
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
:oOhh muchas gracias, tienes razon ... no lo habia pensado.. ;)