[RESOLVED] ProgramData Folder (SpecialDirectories)

How can I write ProgramData path?

Example:

Code:

---

TextBox1.Text = My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData

---

Whit this code I'm getting "C:\ProgramData\Microsoft\ProgramData\1.0.0.0" (Win7), but I need something like this:
Vista/7 = C:\ProgramData
XP = C:\Documents and Settings\All Users\Application Data

G'd Afternoon,
May be i don't understand your question. If you request the AllUsersApplicationData folder path, that's what you get. If you just want the paths above mentioned you may hard code them and check for the OS Name (WMI Library) or use the Microsoft.Win32 library to get the OS Version and set the paths accordingly. Something like this:

Code:

---

Imports Microsoft.Win32
Private sub SetPath() as string
        Dim osInfo As OperatingSystem
        Dim oVer As Version
     

        'OS Version
        'Version 5: XP and Sever 2003 family
        'Version 6: Vista/Win7/Server 2008 Family

        osInfo = Environment.OSVersion
        oVer = osInfo.Version

        Select Case CShort(oVer.Major)
                  Case 5
                          Return "C:\Documents and Settings\All Users\Application Data"
                  Case 6
                        Return "C:\ProgramData"
                  Case Else
                        Return string.empty
            End Select
End Function

---

Quote:

---

Originally Posted by rossi_4656

How can I write ProgramData path?

Example:

Code:

---

TextBox1.Text = My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData

---

Whit this code I'm getting "C:\ProgramData\Microsoft\ProgramData\1.0.0.0" (Win7), but I need something like this:
Vista/7 = C:\ProgramData
XP = C:\Documents and Settings\All Users\Application Data

---

The path is different for each of the OS you have listed which is why a different folder is returned.

http://msdn.microsoft.com/en-us/libr...(v=vs.90).aspx

Make sure to read the Remarks section.

vb Code:

Label1.Text = My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData

result is [w7 64] = C:\ProgramData\Microsoft\WindowsApplication1\1.0.0.0


using Environment...

vb Code:

Label2.Text = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData)

result is [w7 64] = C:\ProgramData

vb Code:

Label2.Text = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)

result is [w7 64] = C:\Users\venice\AppData\Local

vb Code:

Label2.Text = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

result is [w7 64] = C:\Users\venice\AppData\Roaming

Quote:

---

Originally Posted by medsont

vb Code:

Label1.Text = My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData

result is [w7 64] = C:\ProgramData\Microsoft\WindowsApplication1\1.0.0.0


using Environment...

vb Code:

Label2.Text = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData)

result is [w7 64] = C:\ProgramData

vb Code:

Label2.Text = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)

result is [w7 64] = C:\Users\venice\AppData\Local

vb Code:

Label2.Text = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

result is [w7 64] = C:\Users\venice\AppData\Roaming

---

Thank you very much!

:) u r so welcome.........