Paths de Windows

[Sh4k3]

Hola! Bueno tengo una preguntita,stoy haciendo un programa, que guarda capturas del escritorio, pero no quiero que las capturas queden en C: sino que en el escritorio,.Mi pregunta es la siguiente:
 como hago para saber el path del escritorio de windows, o cual es el path, o sea que cuando llegue a la parte de " path = (pathdelescrito rio) " y la foto se guarde en el escritorio..

path = "Environment.Ge tFolderPath(Environment.Sp ecialFolder.De sktopDirectory )"

Encontré este path el problema es q las fotos se guardan no en el escritorio sino que donde se encuentre el .exe, y si está en el escritorio pues obviamente se va a guardar en el escritorio, pero lo q io necesito es que independientem ente de donde esté el .exe, la foto se guarde en el escritorio. 


                                                    Muchas Gracias!

[Ther0x]

si sabes el nombre de la sesión que se está ejecutando:

Código:

path = "C:\Documents and Settings\NombreDeLaSesión\Escritorio\"

si no lo sabes ponlo en el escritorio de todas las sesiones:

Código:

path = "C:\Documents and Settings\All Users\Escritorio\"

también hay unas variables, me parece que se llaman variables de entorno, que servirían para hayar el path de la sesión actual. voy a buscar un poco y si encuentro algo lo posteo



salu2

[Ther0x]

bueno, no tardé en buscar tanto como pensaba...

2 de esas variables te sirven: HOMEDRIVE y HOMEPATH
Homedrive es el disco en el que está instalado el sistema (comunmente c:)
Homepath es el directorio de la sesión actual (c:\documents and settings\nombredelasesionactual\)

me parece que para usarlas desde visualbasic, se pone la variable entre %% y luego lo que siga. en este caso:

Código:

path = %HOMEDRIVE%\%HOMEPATH%\Escritorio\

salu2

[kran]

bueno yo para obtener carpetas del sistema y todo eso utilize este modulo sacado de la web de dragon

Código:

'Codigo Fuente
sacado de www.DragonJAR.us
Public Declare Function GetSystemDirectory Lib "kernel32" _
   Alias "GetSystemDirectoryA" _
  (ByVal lpBuffer As String, _
   ByVal nSize As Long) As Long

Public Declare Function GetWindowsDirectory Lib "kernel32" _
   Alias "GetWindowsDirectoryA" _
  (ByVal lpBuffer As String, _
   ByVal nSize As Long) As Long
   
Public Declare Function GetTempPath Lib "kernel32" _
   Alias "GetTempPathA" _
  (ByVal nSize As Long, _
   ByVal lpBuffer As String) As Long

'------------------------

Option Explicit

Private Sub Command1_Click()
   
   'call the wrapper functions   
    Label1.Caption = GetWinDir()
    Label2.Caption = GetTempDir()
    Label3.Caption = GetSystemDir()

End Sub


Private Function GetWinDir() As String

    Dim nSize As Long
    Dim tmp As String
   
   'pad the string for the return value and
   'set nSize equal to the size of the string     
    tmp = Space$(256)
    nSize = Len(tmp)

   'call the API     
    Call GetWindowsDirectory(tmp, nSize)
   
   'trim off the trailing null added by the API
    GetWinDir = TrimNull(tmp)
   
End Function


Public Function GetTempDir() As String

    Dim nSize As Long
    Dim tmp As String
   
    tmp = Space$(256)
    nSize = Len(tmp)
    Call GetTempPath(nSize, tmp)
   
    GetTempDir = TrimNull(tmp)
   
End Function


Private Function GetSystemDir() As String

    Dim nSize As Long
    Dim tmp As String
   
    tmp = Space$(256)
    nSize = Len(tmp)
    Call GetSystemDirectory(tmp, nSize)
   
    GetSystemDir = TrimNull(tmp)
   
End Function


Private Function TrimNull(item As String)

    Dim pos As Integer
   
   'double check that there is a chr$(0) in the string 
    pos = InStr(item, Chr$(0))     
    If pos Then
          TrimNull = Left$(item, pos - 1)
    Else: TrimNull = item
    End If
 
End Function

sirve para obtener el path de windows, system y temp  :

espero que sea de utilidad

[crypto136]

prueba con esto:
No es exactamente lo que pides pero te dara la pista y aprenderas com usarlos,
lo de los msgbox es para que veas para que sirven los environ (Para obtener rutas especificas del sistema o del usuario)

Código:

Private Sub Command1_Click()
MsgBox Environ("homedrive")
MsgBox Environ("homepath")
Open (Environ("homedrive") & Environ("homepath") & _
    "\Escritorio\File.txt") For Output As #1
    Print #1, Text1.Text
Close
End Sub

SUerte

[Sh4k3]

Muchas Gracias a todos! 
Gracias crypto136 eso era lo que buskaba, aprender a encontrarlos.. Gracias !

                                              Y Muchas Gracias A todos!