 Autor
|
Tema: nombre usuario (Leído 2,020 veces)
|
xXnewbieXx
 Desconectado
Mensajes: 68
|
no c si c llama nombre d usuario... pero mi duda es la siguiente: "C:\Documents and Settings\*****\Escritorio" [_____] l V ¿como puedo averiguar el nombre de lo q va ahí?  pq cada cual tiene un nombre distinto y yo quiero sakar el d otro q no sea el mio...  ( aunq no c si c podrá...y tp si m explike muy bien...  )
|
|
|
|
|
En línea
|
Hardware: Lo que golpeas. Software: La causa
Error 943 - El sistema esta funcionando demasiado bien, se caerá para seguir con la rutina...
|
|
|
BenRu
The Prodigy
Desconectado
Mensajes: 4.006
|
Puedes utilizar App.Path...si no sabes lo que es o nunca lo has utilizado, no te preocupes...te dejo aqui una pequeña guia. En este breve artículo, repasaremos el funcionamiento de App.Path.
App.Path identifica el directorio o camino en el cuál está nuestra aplicación.
Originalmente, este camino o ruta está direccionado al directorio en el cuál está instalado nuestro compilador de Visual Basic.
¿Cómo cambiar la ubicación de App.Path?.
Basta con guardar nuestro proyecto en el directorio que deseemos, y directamente, App.Path tomará el valor del directorio en el cuál se salvó la aplicación.
Ahora bien, ¿para que es útil App.Path?.
Como App.Path nos da el camino o ruta en el cuál está nuestro código fuente, o en su defecto, dónde está instalada nuestra aplicación (el ejecutable en sí), esto nos puede servir para redireccionar manipulaciones de datos directamente al directorio en el cuál se encuentra nuestro ejecutable.
Pero... (ya sabeis que siempre hay un pero), claro, si introducimos nuestro ejecutable al raíz de un disco duro o a otro directorio que no es el raíz, la salida varía.
¿Cómo que varía?.
Pues simplemente, App.Path vale C:\ si tenemos nuestro ejecutable o código fuente en el raíz de esa unidad, y C:\MiDirectorio por ejemplo, si lo tenemos instalado en otro lugar distinto al raíz.
Entonces, podemos observar que la diferentcia reside en la barra final \.
Para solucionar incongruencias como por ejemplo "C:\" & "\Docs\A.doc" o por ejemplo "C:\MiDirecotrio" & "Docs\A.doc"
Para solucionar este problema, lo más sensato es comprobar el tamaño o longitud de App.Path de la forma siguiente:
Len(App.Path)
Si el tamaño es 3, estaremos en el raíz.
En caso contrario, estaremos en un directorio distinto del raíz.
De esta manera, es fácil saber si tenemos que añadir un path con \ o sin \.
Aún así, y si no queremos complicarnos la vida, eligiremos el criterio de usar al principio el carácter \ o no, pero yo sugiero que no.
¿Entonces, como lo hacemos?.
En un pequeño pseudocódigo, quedaría de la siguiente manera:
1) Capturamos el valor de App.Path
2) Miramos la longitud de App.Path
Si es mayor que 3, entonces añadimos a la variable que guarda App.Path el carácter \.
Ejemplo práctico:
Dim strPath As String
strPath = IIf(Len(App.Path) > 3, App.Path & "\", App.Path)
Por supuesto, si hacemos global a strPath entonces, podremos usar esta variable en todo el proyecto sin problemas. Fuente: portalvb.com Un saludo
|
|
|
|
|
En línea
|
|
|
|
xXnewbieXx
Desconectado
Mensajes: 68
|
jajaja ya sabia usar el app.path  , pero q yo sepa eso solo m sirve para saber dsd donde c está ejecutando el programa. yo lo k necesito es q mi programa sake el directorio d mis documentos x ejemplo, ya q dps a partir d ahi sabria como seguir Es dcir buskar la ubikacion d una carpeta, programa o lo k sea en concreto (pero no donde este el .exe creado x mi)para dps sacar 1 parte d ese directorio q es lo k necesito  gracias d toas formas! |
|
|
|
|
En línea
|
Hardware: Lo que golpeas. Software: La causa
Error 943 - El sistema esta funcionando demasiado bien, se caerá para seguir con la rutina...
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Esto te da el nombre de usuario actual, que es el nombre de la carpeta que necesitas... Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim strUserName As String
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
'Show the temppath and the username
MsgBox strUserName
End Sub
|
|
|
|
|
En línea
|
|
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
seken_C4 ese code me resulta familiar y te sobran 2 apis .... xD+
Salu2
|
|
|
|
|
En línea
|
|
|
|
SheKeL_C$
Desconectado
Mensajes: 549
_-=[Sh3K3L_C$]=-_
|
Copie y pege, nunca e dixo q ese code fuese mio, yo d apis s muy poco y quite algo d codigo q informaba sobre la ruta de la aplicacion 
EDIT: cuando postee el codigo no vi el tuyo Kizar, l debi d dar al enlace d responder y dejarle un tiempo en el q tu contextaste sorry |
|
|
|
« Última modificación: 25 Marzo 2006, 15:10 pm por seken_C4 »
|
En línea
|
|
|
|
|
|
|
 |
muxisimas gracias!!! 
