PtrSafe attribute for 64 bit system

[MissDB]

I have written some code in Excel at work but when I try to use at home it comes up with this message:-


Compile Error:

The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute.

The code I have is as follows:

Please Login or Register  to view this content.

What do I need to do?!

Thanks
MissD

[LJMetzger]

Hi MissDB,

Try the following:

Please Login or Register  to view this content.

The following is one of many references for 32 bit vs 64 bit compatibility:
http://www.jkp-ads.com/articles/apideclarations.asp

Lewis

[JosephP]

nbufferlength is actually long not longptr ;-)

[MissDB]

Hi,

Thanks for this. JosephP what do you mean?

How would you write the code?

Thanks
Davinia

[JosephP]

I'd use

Please Login or Register  to view this content.

or if you only use excel 2010 or later just use

Please Login or Register  to view this content.

[MissDB]

Brilliant thank you so much. Will give it a go and let you know how I get on

[MissDB]

Hi,

It didn't work It says run time error 5 invalid procedure call or argument and the code stops at this point:-

Please Login or Register  to view this content.

GetTmpPath = Left(sFolder, InStr(sFolder, _
Chr(0)) - 1)

Please Login or Register  to view this content.

[newdoverman]

This is an example from Excel 2010 Power Programming with VBA by John Walkenbach.

Please Login or Register  to view this content.

I hope that I didn't make any typos.....I'm not used to this.

[JosephP]

Hi,

It didn't work It says run time error 5 invalid procedure call or argument and the code stops at this point:-

Please Login or Register  to view this content.

GetTmpPath = Left(sFolder, InStr(sFolder, _
Chr(0)) - 1)

Please Login or Register  to view this content.

I tested the code a few times and it works. you'd only get that error if there isn't a chr(0) in the temp path but it should always be terminated with a null character. what operating system version do you have - vista / 7/ 8?

[MissDB]

At home it's Windows 8, at work it is Windows 7 Enterprise.

[JosephP]

I'll test win8 later - gotta get some sleep now!

[Kyle123]

Win8 works for me, the only way I can replicate the error at that place is by removing the MAX_PATH contsant