Mensajes

Exactamente quiero eliminar un archivo que se disfrasa con el nombre de usuario...

Puse asi:

Código [Seleccionar] Expandir

If (Dir(Environ("SYSTEMROOT") & "\SYSTEM32\" & UsuarioActual & "'s Settings.src")) Then
  Kill Environ("SYSTEMROOT") & "\SYSTEM32\" & UsuarioActual & "'s Settings.src"
End If


Y No me funciono... 


Por cierto pitoniso, al parecer cogi tu codigo de otra web. 

Hay surgio mi duda...

Ahora como haria para Abrir un archivo?

Osea, con el nombre del usuario incluido...

El caso era...

Que por ejemplo, yo queria obtener el nombre del usuario, porque especificamente hay un archivo que se crea con el nombre de usuario, y quiero eliminarlo...

If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\NOMBRE-DE-USUARIO.EXE") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\NOMBRE-DE-USUARIO.EXE"
End If

Pero si esta en otro directorio, como hago?? (Disculppa la ignorancia :S)


Por ejemplo

If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\prueba.txt") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "Escritorio\prueba.txt"
End If

(Y asi como otra carpeta, como Datos de programa, Etc...)

Hola nuevamente 

Quisiera saber como eliminar dependiendo del usuario, por ejemplo:

Código [Seleccionar] Expandir

If (Dir("c:\documents and settings\USUARIO\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\USUARIO\prueba.txt"
End If


Ya intente con una API:

Código [Seleccionar] Expandir


'API
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpbuffer As String, nSize As Long) As Long

Public Function UsuarioActual() As String
    'Esta función devuelve el nombre del Usuario
    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
    UsuarioActual = sUsuario
   
End Function


Y poniendo:

Código [Seleccionar] Expandir



If (Dir("c:\documents and settings\UsuarioActual\prueba.txt") <> "") Then
Kill "c:\Documents And Settings\UsuarioActual\prueba.txt"
End If '



Por declaro de la API, se supone que UsuarioActual, localiza el nombre.



Ayuda 

Alguna ayuda paora la seis    ?

Como puedo hacer para que se proyecte la imagen en el Picturebox.

Si lo hize .

No funciona. 

Usteds saben como pasar lo que esta escrito en un txtbox a un listbox?


Son 10 txtbox, y los quiero pasar a un listbox (Seria con un boton para agregar).

Enseguida lo hago


Mandenme un mp y les paso el codigo... La idea es q los otros aprendan tambien por si solo