Hello All,<br><br>I need to pass DOS style path names to another program from VFP, however I can not figure a way to get the legal DOS name of the path. Anyone have a trick on how to convert long path names to DOS 8 character names?<br><br>For example change:<br><br>C:\My Documents\Excel Sheets\<br>C:\My Documents\Excel Stuff\<br> -to-<br>C:\MYDOCU~1\EXCELS~2\<br>C:\MYDOCU~1\EXCELS~1\<br><br> <p> <br><a href=mailto:blindpete@mail.com>blindpete@mail.com</a><br><a href= > </a><br>
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
I need legal DOS paths... 3
- Thread starter BlindPete
- Start date
-
1
- #2
run dir c:\windows\*.* > c:\text.txt<br>select 0<br>create table C:\FILESDBF.DBF (NAME c(100)) && or whatever you want<br>use c:\filesdbf<br>append from c:\text.txt type sdf<br>DosFileName = alltrim(substr(FILESDBF.NAME,1,12))<br> <p>David W. Grewe<br><a href=mailto
ave@internationalbid.net>Dave@internationalbid.net</a><br><a href= > </a><br>
ave@internationalbid.net>Dave@internationalbid.net</a><br><a href= > </a><br>Filer.dll to the rescue.<br><br>Go to the VFP on-line help for "Filer", then choose Filer.dll. Scroll down to the section on File Collection Properties and note that one of the properties is AlternateName, which will be the short, or 8.3, file name.<br><br>Of course, if you have to distribute this in a runtime, this solution won't work ;-) <p>Robert Bradley<br><a href=mailto: > </a><br><a href= - Visual FoxPro Development</a><br>
- Thread starter
- #4
Thanks,<br><br>As Robert surmised filer won't help - it must be distributed.<br><br>I was hoping to avoid using txt files but I'll give it go anyhow. <br><br>Thanks<br><br> <p> <br><a href=mailto:blindpete@mail.com>blindpete@mail.com</a><br><a href= > </a><br>
-
2
- #5
Try this:<br><br><FONT FACE=monospace>* GetShortPathName<br><br>PROCEDURE GetDOS83<br>LPARAMETERS tcLongPathName<br><br>* Accepts a path as a parameter. <br>* If the path is invalid or missing then GetFile gets one<br>* If you need a UI interface out of this then remove it<br><br>LOCAL lcLongFile, lcBuffer, lnBufferSize, lnShortPathLen, lcShortPath<br><br>* Validate parameter<br>IF EMPTY(tcLongPathName) OR ;<br> VARTYPE(tcLongPathName) <> 'C' OR ;<br> !FILE(tcLongPathName)<br> lcLongFile = GETFILE()<br> IF !FILE(lcLongFile)<br> * user cancelled or again entered invalid stuff<br> RETURN && Loser!<br> ENDIF<br>ELSE<br> * the path is valid<br> lcLongFile = tcLongPathName<br>ENDIF<br><br>DECLARE INTEGER GetShortPathName IN Win32API ;<br> STRING @cLongPath, ;<br> STRING @cShortPathBuff, ;<br> INTEGER nBuffSize<br><br>lcBuffer = SPACE(511)<br>* should this be set to the maximum length allowed for a long path name?<br>lnBufferSize = 511<br>lnShortPathLen = GetShortPathName(lcLongFile, @lcBuffer, @lnBufferSize)<br>lcShortPath = LEFT(lcBuffer, lnShortPathLen)<br>RETURN lcShortPath</font> <p>John Durbin<br><a href=mailto: > </a><br><a href= > </a><br>ICQ VFP ActiveList #73897253
Excellent, John.<br><br>For more information on this and other WINAPI functions, visit:<br><br><A HREF=" TARGET="_new"> <p>Robert Bradley<br><a href=mailto: > </a><br><a href= - Visual FoxPro Development</a><br>
- Thread starter
- #7
With a few slight mods it works perfect. Thanks for the sample John!<br><br>I have stayed away from API routines I played with them a few years ago but ran into problems between platforms. By making use of API am I going to have problems between platforms (2000/NT4/98/95) ????<br> <p> <br><a href=mailto:blindpete@mail.com>blindpete@mail.com</a><br><a href= > </a><br>
Nope its just VFP can't do all the things with arrays and stuff VB and C does. But the ones that work, work. I should have checked over that code. I see an out of place ENDIF and questions I had but you get it anyways. Why API is just getting going, I mean at least more, in VFP I don't know. It works great. I'm trying to build a library. Rick Strahl has many great functions in his wwRegistry.prg or something at west-wind.com If anyone can't find it I will and post them. Maybe in a FAQ. Glad I'm good for something. Rough couple past days 
<p>John Durbin<br><a href=mailto: > </a><br><a href= > </a><br>ICQ VFP ActiveList #73897253
<p>John Durbin<br><a href=mailto: > </a><br><a href= > </a><br>ICQ VFP ActiveList #73897253- Thread starter
- #9
FWIW,<br> GetShortPathName can be used to convert directories as well as pathes to 8.3 format.<br><br>lcLongPath='C:\Program Files\Microsoft Visual Studio\' && convert directory<br>OR<br>lcLongPath='C:\Program Files\Microsoft Visual Studio\Vfp.exe' && convert path<br><br>Just be sure that the target, directory or file, exists or else GetShortPathName will return an error. That one bit me in the buttox yesterday. I was generating unique filenames and using this function to convert the path to 8.3 format, but since the file didnt exist on disk, WHAM!...Error 87..Invalid parameter. Nowhere in the documentation does it say the target has to exist on disk....but...it does. <p>Jon<br><a href=mailto: > </a><br><a href= > </a><br>Carpe Diem!
- Status
