Ah. Trying to preserve case in file systems. One of my pet peeves… 😊 Definitely need to use Win API calls to do that.
Move along. Nothing to see here...
--
rk
From: ProfoxTech profoxtech-bounces@leafe.com On Behalf Of Paul Newton Sent: Tuesday, May 31, 2022 11:45 AM To: profoxtech@leafe.com Subject: Re: A better way to create directories?
Yes, but they are always lowercase as I pointed out
Get Outlook for Androidhttps://protect-us.mimecast.com/s/Pv_8CPNM9zIJgqlCrbBVL?domain=aka.ms ________________________________ From: ProfoxTech mailto:profoxtech-bounces@leafe.com on behalf of Richard Kaye mailto:rkaye@invaluable.com Sent: Tuesday, May 31, 2022 4:41:12 PM To: mailto:profoxtech@leafe.com mailto:profoxtech@leafe.com Subject: RE: A better way to create directories?
I did this:
MKDIR test1\test2
And VFP happily created both folders. I tried from both the root of C as well as starting from a sub-folder.
--
rk
From: ProfoxTech mailto:profoxtech-bounces@leafe.com On Behalf Of Paul Newton Sent: Tuesday, May 31, 2022 11:32 AM To: mailto:profoxtech@leafe.com Subject: A better way to create directories?
Hi all
I hope the following might be useful (I apologise if this is "old hat" for some of you). I wanted to create C:\Folder1\Folder2 when Folder1 does not exist.
It is possible to do this using MKDIR but the created folders are in lowercase.
You cannot do this with the CreateDirectory API, nor with Scripting.FileSystemObject.
Here is the solution:
Function MDEx(tcFolder) * tcFolder must be a full path including drive letter DECLARE INTEGER SHCreateDirectory In Shell32 INTEGER hwnd, STRING Path Local nResult * Path must be UNICODE nResult = SHCreateDirectory(0, StrConv(tcFolder,5)) Return nResult && 0 = Success
Possible error codes are: ERROR_BAD_PATHNAME (161) : tcFolder was a relative path ERROR_FILENAME_EXCED_RANGE (206) : Path too long ERROR_FILE_EXISTS (80) or ERROR_ALREADY_EXISTS (183) : The directory already exists ERROR_CANCELLED (1223) : Cancelled by user
Paul Newton
--- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---
[excessive quoting removed by server]
_______________________________________________ Post Messages to: mailto:ProFox@leafe.com Subscription Maintenance: https://protect-us.mimecast.com/s/_eLcCQWN26HJVmxC9U2D1?domain=mail.leafe.co... OT-free version of this list: https://protect-us.mimecast.com/s/GnYBCR6M0PhyY8VC05sj0?domain=mail.leafe.co... Searchable Archive: https://protect-us.mimecast.com/s/EKstCVO5k7szB1virRa4m?domain=leafe.com This message: https://protect-us.mimecast.com/s/9R0jCW6wlQhN3vkcB8KEm?domain=leafe.com ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.