PASTAS ESPECIAIS

WILLVIDAL 28/11/2012 00:10:53
#414901
Boa noite,
Alguém por aqui sabe de uma função para pegar o caminho das pastas epeciais do windows ?
tipo o endereço do arquivos de programas, desktop e favorivos, é que eu preciso salvar alguns arquivos nessas pastas, porém, elas mudam de lugar dependendo da versão do windows.
Obrigado.
ALEVALE 28/11/2012 08:24:57
#414911
VB6 ou VB.NET ?
[Ô]Apesar de estar criado como [Ô]VB/VBA[Ô]...
VELDRAME 28/11/2012 18:15:52
#414985
Tenta isso:
VB6
MsgBox [Ô][Ô] & Environ$([Ô]USERPROFILE[Ô]) & [Ô]\my documents\[Ô]


.NET
Environment.SpecialFolder.ApplicationData
Environment.SpecialFolder.System
Environment.SpecialFolder.CommonApplicationData
Environment.SpecialFolder.CommonProgramFiles
Environment.SpecialFolder.Cookies
Environment.SpecialFolder.Desktop
Environment.SpecialFolder.DesktopDirectory
Environment.SpecialFolder.Favorites
Environment.SpecialFolder.History
Environment.SpecialFolder.InternetCache
Environment.SpecialFolder.LocalApplicationData
Environment.SpecialFolder.MyComputer
Environment.SpecialFolder.MyMusic
Environment.SpecialFolder.MyPictures
Environment.SpecialFolder.Personal
Environment.SpecialFolder.ProgramFiles
Environment.SpecialFolder.Programs
Environment.SpecialFolder.Recent
Environment.SpecialFolder.SendTo
Environment.SpecialFolder.StartMenu
E por ai vai.
Para recuperar o caminho da pasta “Meus Documentos” por exemplo, basta fazer o seguinte:
string path = Environment.GetFolderPath(Environment.SpecialFolder.Personal);

Para recuperar o caminho da pasta de arquivos temporários do Windows, fazemos o seguinte:
return System.IO.Path.GetTempPath();


A chave é pesquisar o comando: [Ô] Environ$[Ô] ou [Ô]Environment[Ô]
WILLVIDAL 28/11/2012 21:31:28
#414990
No meu caso é VB6 mesmo ..
EPISCOPAL 29/11/2012 09:36:31
#415003
pra usar com environ$ tem que eliminar os sinais de % (por cento) aiiii funciona .......... isto em vb6
EPISCOPAL 29/11/2012 09:43:09
#415004 Resposta escolhida
Achei mais issov..

MsgBox Environ([Ô]winbootdir[Ô])[ô]Windows (*)
MsgBox Environ([Ô]TMP[Ô])[ô]Windows\Temp
MsgBox Environ([Ô]TEMP[Ô])[ô]Windows\Temp
MsgBox Environ([Ô]PROMPT[Ô])[ô]Prompt (**)
MsgBox Environ([Ô]COMSPEC[Ô])[ô]COMMAND.COM (***)
MsgBox Environ([Ô]PATH[Ô])[ô]OBJETO SELECIONADO (****)
MsgBox Environ([Ô]CMDLINE[Ô])[ô]WIN (*****)
MsgBox Environ([Ô]windir[Ô])[ô]Windows (*)

* = Caminho do Windows
** = Configuração do Prompt
*** = Command.com do Windows (ex.: C:\Windows\command.com)
**** = Mouse, CDROM, etc.
***** = Chamada do Windows pela linha de comando
>>>>> Se ENVIRON retornar [Ô][Ô] é porque a variável do ambiente não foi encontrada.
>>>>> ENVIRON pode ser chamada com argumento numérico por um FOR

Ex.: Dim VarAmbiente() As String, I_Num As Integer
For I_Num = 1 To 10
If Environ(I_Num) <> [Ô][Ô] Then
Redim Preserve VarAmbiente(I_Num)
VarAmbiente(I_Num) = Environ(I_Num)
End If
Next
ALEVALE 29/11/2012 12:28:04
#415042
Para saber as variavies de ambiente.

Execute o DOS (CMD.EXE).

Digite SET ....todas as variaveis ali mostradas podem ser utilizadas.
Tópico encerrado , respostas não são mais permitidas
Voltar