Prev: Sorting UDTs
Next: Copy from ListBox to TextBox
From: Claire on 28 Jun 2010 13:27 Hello, I am not sure what I am doing wrong. The fact is that I cannot recreate the problem on my computer, one of my users is struggling with. The problem is that on his computer app crashes with: "Run-Time error '75': Path/File access error" message. I have traced this problem to the point app wants to create folder in: C:\ProgramData\<my app title> That path is obtained using GetSpecialfolder(CSIDL_COMMON_APPDATA) Interestingly, I cannot recreate that crash on my computer. User has Vista Business (32 bit), with Administrator privilages and UAC is on. I have also noticed another strange thing about that Vista. It returns False to IsWinNT4Plus function: ============================ Function IsWinNT4Plus() As Boolean Const VER_PLATFORM_WIN32_NT As Long = 2 Dim osv As OSVERSIONINFO osv.OSVSize = Len(osv) If GetVersionEx(osv) = 1 Then IsWinNT4Plus = (osv.PlatformID = VER_PLATFORM_WIN32_NT) And (osv.dwVerMajor >= 4) End If End Function ============================ Any comments and your help appreciated, Claire
From: Karl E. Peterson on 28 Jun 2010 13:36 Claire has brought this to us : > Hello, > I am not sure what I am doing wrong. > The fact is that I cannot recreate the problem on my computer, one of my > users is struggling with. > The problem is that on his computer app crashes with: > "Run-Time error '75': Path/File access error" message. > I have traced this problem to the point app wants to create folder in: > C:\ProgramData\<my app title> > That path is obtained using GetSpecialfolder(CSIDL_COMMON_APPDATA) > > Interestingly, I cannot recreate that crash on my computer. > > User has Vista Business (32 bit), with Administrator privilages and UAC is > on. That folder is off limits in those conditions, except for setup apps running with admin privs. It's just like HKLM. http://visualstudiomagazine.com/articles/2009/01/19/lemme-tell-ya-where-to-stick-it.aspx > I have also noticed another strange thing about that Vista. > It returns False to IsWinNT4Plus function: > ============================ > Function IsWinNT4Plus() As Boolean > Const VER_PLATFORM_WIN32_NT As Long = 2 > Dim osv As OSVERSIONINFO > > osv.OSVSize = Len(osv) > If GetVersionEx(osv) = 1 Then > IsWinNT4Plus = (osv.PlatformID = VER_PLATFORM_WIN32_NT) And > (osv.dwVerMajor >= 4) > End If > End Function > ============================ > > Any comments and your help appreciated, Which test is failing? First thing I'd change is the test for GetVersionEx return. "If the function succeeds, the return value is a nonzero value." http://msdn.microsoft.com/en-us/library/ms724451%28VS.85%29.aspx -- ..NET: It's About Trust! http://vfred.mvps.org Customer Hatred Knows No Bounds at MSFT ClassicVB Users Regroup! comp.lang.basic.visual.misc Free usenet access at http://www.eternal-september.org
From: Kevin Provance on 28 Jun 2010 14:01 "Karl E. Peterson" <karl(a)exmvps.org> wrote in message news:i0amje$v6a$1(a)news.eternal-september.org... : Which test is failing? First thing I'd change is the test for : GetVersionEx return. Ever heard of the IsOS API call? It returns a boolean based on an fed instruction. Fairly cool thing. -- Customer Hatred Knows No Bounds at MSFT Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc Bawwk! Paulie want a dingleball, bawwk!
From: Karl E. Peterson on 28 Jun 2010 14:16 Kevin Provance expressed precisely : > "Karl E. Peterson" <karl(a)exmvps.org> wrote in message > news:i0amje$v6a$1(a)news.eternal-september.org... > >> Which test is failing? First thing I'd change is the test for >> GetVersionEx return. > > Ever heard of the IsOS API call? It returns a boolean based on an fed > instruction. Fairly cool thing. Huh? No, not familiar. -- ..NET: It's About Trust! http://vfred.mvps.org
From: Claire on 28 Jun 2010 14:43
Karl, what is wrong with that folder: C:\ProgramData\<my app title> ? It is listed on the webpage you provided link to. If that folder location is wrong which location will be safer? I need the location for all users. Thanks, Claire "Karl E. Peterson" <karl(a)exmvps.org> wrote in message news:i0amje$v6a$1(a)news.eternal-september.org... > Claire has brought this to us : >> Hello, >> I am not sure what I am doing wrong. >> The fact is that I cannot recreate the problem on my computer, one of my >> users is struggling with. >> The problem is that on his computer app crashes with: >> "Run-Time error '75': Path/File access error" message. >> I have traced this problem to the point app wants to create folder in: >> C:\ProgramData\<my app title> >> That path is obtained using GetSpecialfolder(CSIDL_COMMON_APPDATA) >> >> Interestingly, I cannot recreate that crash on my computer. >> >> User has Vista Business (32 bit), with Administrator privilages and UAC >> is on. > > That folder is off limits in those conditions, except for setup apps > running with admin privs. It's just like HKLM. > > http://visualstudiomagazine.com/articles/2009/01/19/lemme-tell-ya-where-to-stick-it.aspx > >> I have also noticed another strange thing about that Vista. >> It returns False to IsWinNT4Plus function: >> ============================ >> Function IsWinNT4Plus() As Boolean >> Const VER_PLATFORM_WIN32_NT As Long = 2 >> Dim osv As OSVERSIONINFO >> >> osv.OSVSize = Len(osv) >> If GetVersionEx(osv) = 1 Then >> IsWinNT4Plus = (osv.PlatformID = VER_PLATFORM_WIN32_NT) And >> (osv.dwVerMajor >= 4) >> End If >> End Function >> ============================ >> >> Any comments and your help appreciated, > > Which test is failing? First thing I'd change is the test for > GetVersionEx return. > > "If the function succeeds, the return value is a nonzero value." > http://msdn.microsoft.com/en-us/library/ms724451%28VS.85%29.aspx > > -- > .NET: It's About Trust! http://vfred.mvps.org > Customer Hatred Knows No Bounds at MSFT > ClassicVB Users Regroup! comp.lang.basic.visual.misc > Free usenet access at http://www.eternal-september.org > > |