[Pytanie] Uzyskiwanie Adresu

[TheBuster_PL]

Witam mam następujący problem robię coś na wzór launchera i mam w nim taki kodzik

       Call Shell("C:\Program Files (x86)\WinRAR\winrar.exe x -o+ ""trololo"" *.* ""trololo""", vbHide)

Kod służy do Wypakowania Zip'a ale przeważnie niektórzy mają Win XP który nie ma folderu ProgramFiles(x86) a ProgramFiles i jak uzyskać kod który wykrywa jaki ma się ten Folder czy z (x86) czy bez (Prosze o dokładnie wytłumaczenie)

 

2.

Jak uzyskać adres do AppData?

[StuSto]

Appdata znajduje się:

C:\Users\NazwaUsera\AppData\

[godomogo]

Bądz : uruchom Wpisz %appdata%

[TheBuster_PL]

 

Appdata znajduje się:

C:\Users\NazwaUsera\AppData\

 

 

Bądz : uruchom Wpisz %appdata%

[FacePalm]

Chodzi mi o adres bo nie każdy ma sysytem na dysku C:/ i żeby odrazu była AppData bądz Program Files

[StuSto]

Call Shell("%appdata%")

[Sunnyline2]

Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)

[TheBuster_PL]

Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)

Okey działa a wiesz jak podobnie uzyskać adres do ProgramFiles?

[Sunnyline2]

Okey działa a wiesz jak podobnie uzyskać adres do ProgramFiles?

 

Private Shared Function ProgramFilesx86() As String
If 8 = IntPtr.Size OrElse (Not [String].IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))) Then
  Return Environment.GetEnvironmentVariable("ProgramFiles(x86)")
End If
Return Environment.GetEnvironmentVariable("ProgramFiles")
End Function
 

Nie sprawdzałem, wygooglowałem ;D

[TheBuster_PL]

 

Private Shared Function ProgramFilesx86() As String
If 8 = IntPtr.Size OrElse (Not [String].IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))) Then
  Return Environment.GetEnvironmentVariable("ProgramFiles(x86)")
End If
Return Environment.GetEnvironmentVariable("ProgramFiles")
End Function
 

Nie sprawdzałem, wygooglowałem ;D

Wyrypało 3 errory.

 

Tak odrazu się zapytam Ma ktoś kod wypakujący Zip'a z pomocą ścieżki która jest napisana w Textboxie?

[Sunnyline2]

Wyrypało 3 errory.

 

Tak odrazu się zapytam Ma ktoś kod wypakujący Zip'a z pomocą ścieżki która jest napisana w Textboxie?

Co ty pierdolisz mi tam działa.. Jak ci to może nie działać.. lol..

http://scr.hu/0ew/01o7k

[SWGCraft]

AppData

 

 

C:\Users\NazwaUsera\AppData\

[Gość]

Enum SpecialFolder również ma Program Files i jego 32 bitowy odpowiednik.

[TheBuster_PL]

Co ty pierdolisz mi tam działa.. Jak ci to może nie działać.. lol..

http://scr.hu/0ew/01o7k

Przepraszam mój mistrzu ^,^

 

Niezaznaczyłem jednej linijki ^,^

wszystko jest ok cls.