FPD 2.5b and Extended Error 183 when creating a directory

[Goofus828]

I'm trying to create a directory underneath my executable using this as my code RUN MD hipaa837 and I get

Extended error 183.

Where my exe is 3 folders off of the root and they are long file names so the path looks like this \ononda~1\ONON03~1\KIDS\.

I'm running this on XP but could be 3.1,ME,98,2000
WOuld i be better off doing an fcreate of a batch file to create the new directory?
Thanks

 

[alvechurchdata]

WOuld i be better off doing an fcreate of a batch file to create the new directory?

You can do it in three lines with the File System Object:

local fso as scripting.filesystemobject
fso=createobject("scripting.filesystemobject")
fso.CreateFolder("c:\my new folder")

If you want to create a tree of folders you have to do it in steps so as each command has something to build on:

local fso as scripting.filesystemobject
fso=createobject("scripting.filesystemobject")
fso.CreateFolder("c:\another new folder")
fso.CreateFolder("c:\another new folder\and another one")

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[Goofus828]

Geoff, thanks but I'm in foxpro for dos version 2.5b and this is a visual solution correct?

 

[alvechurchdata]

Geoff, thanks but I'm in foxpro for dos version 2.5b and this is a visual solution correct?

My mistake. You could I suppose call a VBScript program from FPW but it's a bit of a long way round. The VBScript code is very similar to the VFP:

dim fso
set fso=createobject("scripting.filesystemobject")
fso.CreateFolder("c:\another new folder")
fso.CreateFolder("c:\another new folder\and another one")

and then you run wscript.exe from FPW to call the VBScript:

run wscript.exe "MakeMyDir.vbs"

You're probably better off sticking with the simplicity of a batch file.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[DSummZZZ]

When you execute the 'RUN MD hipaa837 ' statement, are you sure the default folder is set to '\ononda~1\ONON03~1\KIDS\' when the cmd.exe executes?


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[tesar]

Geoff,
in this case try
if adir(aaa, "hipaa837", "D") = 0
!md hipaa837
endif
Tesar

 

[JRB-Bldr]

You might try the following:

 mcCmd = "MD C:\ononda~1\ONON03~1\KIDS\hipaa837"
 Run &mcCmd

I tested the above approach.
At first I did not have my directories abbreviated correctly and it did not work. But once I got them looking like they would in DOS, the test worked fine.

Good Luck,


JRB-Bldr
VisionQuest Consulting
Business Analyst & CIO Consulting Services
CIOServices@yahoo.com

 

[Goofus828]

JRB - I like your suggestion. A lot cleaner that what I usually do.

Dave - yes i'm always in this folder.

And everyone - guess what it was. A network issue. I spent two days chasing ghosts!!!!

Thanks everyone.