Programación General > Visual Basic para principiantes

 Que metodo usar

(1/3) > >>

fm89-10:
Hola  necesito su ayuda quisera saber que metodo puedo usar para conocer la direccion de un archivo en especifico, por ejemplo  si tengo un archivo.exe y al  darle click que  me  muestre su ubicacion a traves de un mensaje.En todo casi si lo tengo en la carpeta misdocumentos me  muestre en el  mensaje  C:Documents and SettingsFelix GarcíaMy Documents


espero su ayuda, y de antemano muchas gracias

RadicalEd:
Checa este post

F_Tanori:
Hay una Api que se llama  GetFullPathName que creo que te puese ser util


http://vb.mvps.org/hardcore/html/getfullpathname.htm


Saludos

Jimbenit:
Edo, No me gustó tu respuesta, aqui en este foro también hay respuesta, mi presencia en este foro hace que halla respuesta.

Saludos

MIRA ESTE CODIGO DE EJEMPLO QUE TE PONGO

--- Código: Text ---'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@ S P E C I A L    F O L D E R                          @@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@ ó folder especiales (pero en ingles se escucha mejor) @@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'La declaración del API: (Special Folder)Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" _    (ByVal hWnd As Long, ByVal spath As String, _    ByVal Folder As Long, ByVal Create As Long) As Long Sub SpecialFolder(ConsAPI, spath As String) 'La longitud máxima de un directorio puede ser 260Const MAX_PATH = 260'Algunas de las constantesConst CSIDL_DESKTOP = 0Const CSIDL_PROGRAMS = 2Const CSIDL_STARTUP = 7Const CSIDL_STARTMENU = 11 'Para usarla (la declaracion de la api)     'Dim spath1 As String     spath = String$(MAX_PATH + 1, 0)    Call SHGetSpecialFolderPath(Form1.hWnd, spath, ConsAPI, False)    'Quitarle el CHR$(0) del final    spath = Left$(spath, InStr(spath, Chr$(0)) - 1)    'MsgBox "El directorio XXXXX está en: " & vbCrLf & spath    End Sub Private Sub Form_Load()Me.AutoRedraw = True Dim Text As String For i = 1 To 50    Call SpecialFolder(i, Text)    Print i & " : ", , , TextNext i 'sientate y analizalo, cualquier duda me preguntas End Sub  

RadicalEd:

--- Cita de: "Jimbenit" ---Edo, No me gustó tu respuesta, aqui en este foro también hay respuesta, mi presencia en este foro hace que halla respuesta.

Saludos


--- Fin de la cita ---
No entendí lo que quisiste decir :wacko:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente