[Resolvido] salvar na pasta do usuario do cliente

[helanio]

SaveToDisk("teste.exe", "D:\Documents and Settings\USUARIO\Dados de aplicativos\...")

o que coloco em usuario pra que automaticamente ele reconheça o usuario atual?

Edited August 15, 2012 at 05:30 PM by helanio

[ribeiro55]

SaveToDisk("teste.exe", FileIO.SpecialDirectories.CurrentUserApplicationData)

[helanio]

SaveToDisk("teste.exe", FileIO.SpecialDirectories.CurrentUserApplicationData)

SaveToDisk("teste.exe", "D:\Documents and Settings\FileIO.SpecialDirectories.CurrentUserApplicationData\Dados de aplicativos\...")

É assim?

Desculpa sou novo aqui.

EDIT:

meu código:

    SaveToDisk("XXX.exe", "C:\Documents and Settings\[b]USUARIO\Dados de aplicativos\...\...\XXX.exe")

Edited August 15, 2012 at 07:40 PM by helanio

[FreiNando]

Para obter o nome do Usuário:

Environment.UserName ou Environment.GetEnvironmentVariable("USERNAME")

Mas se o seu programa correr noutra máquina ou noutra versão do windows, essa expressão não irá resultar.

Para funcionar correctamente utiliza a expressão completa:

Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

ou

Environment.GetEnvironmentVariable("APPDATA")

ou seja:

SaveToDisk("XXX.exe", Environment.GetEnvironmentVariable("APPDATA") & "\...\...\XXX.exe")

Edit: a instrução FileIO.SpecialDirectories.CurrentUserApplicationData é especifica da aplicação que está correndo e aponta para uma pasta dentro da que eu referi, cujo caminho depende da Companhia e do Produto, introduzidos nas propriedades do projecto VB.Net.

Edited August 15, 2012 at 07:55 PM by FreiNando

[ribeiro55]

FileIO.SpecialDirectories.CurrentUserApplicationData é equivalente ao caminho todo até aos Dados de aplicativos.

Se queres colocar o teste.exe nos dados da tua aplicação, partindo do pressuposto que esse método que aí tens cria ou copia o ficheiro, basta colocares exactamente como te mostrei.

[helanio]

Para obter o nome do Usuário:

Environment.UserName ou Environment.GetEnvironmentVariable("USERNAME")

Mas se o seu programa correr noutra máquina ou noutra versão do windows, essa expressão não irá resultar.

Para funcionar correctamente utiliza a expressão completa:

Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

ou

Environment.GetEnvironmentVariable("APPDATA")

ou seja:

SaveToDisk("XXX.exe", Environment.GetEnvironmentVariable("APPDATA") & "\...\...\XXX.exe")

Edit: a instrução FileIO.SpecialDirectories.CurrentUserApplicationData é especifica da aplicação que está correndo e aponta para uma pasta dentro da que eu referi, cujo caminho depende da Companhia e do Produto, introduzidos nas propriedades do projecto VB.Net.

Obrigado Funcionou ;D

Mas outra coisa que surgiu é: Se a pasta não existe como antes de extrair o botão crie ela caso não tenha?

[FreiNando]

O teu prodecimento SaveToDisk é que tem que lidar com essa situação, para no caso de não encontrar o caminho, criá-lo.

Claro que o caminho que estás a acrescentar à variavel de sistema é o que pode não existir.

[helanio]

O teu prodecimento SaveToDisk é que tem que lidar com essa situação, para no caso de não encontrar o caminho, criá-lo.

Claro que o caminho que estás a acrescentar à variavel de sistema é o que pode não existir.

SaveToDisk não cria pasta caso ela não exista?

[ribeiro55]

SaveToDisk não é um método nativo.

[helanio]

Problema resolvido, só falta resolver este: http://www.portugal-a-programar.pt/topic/55712-extrair-arquivos-da-resources/