Folder creation in xbasic script not working

[coleresources]

This works in the interactive window on my development machine but it doesn't work in production. I want to control where documents I am generating are stored. Any help is appreciated!

dim MarketingName as C = "Test"
dim folderpath as C="c:\Sales Files\Generated Documents\Sales Contract"
file.dir_create_recurse(folderpath + chr(92) + MarketingName)

[aschone]

Re: Folder creation in xbasic script not working

I wonder if you are encountering an NTFS permissions issue. On the production machine manually create the folder structure to verify that the user has the necessary permissions.

[Clipper87]

Re: Folder creation in xbasic script not working

Be advised that if you should migrate to IIS this is not supposed to work by default as IIS default security settings will not allow it. Alternative would be to use A5storage (see release notes)

[aschone]

Re: Folder creation in xbasic script not working

Be advised that if you should migrate to IIS this is not supposed to work by default as IIS default security settings will not allow it. Alternative would be to use A5storage (see release notes)

I didn't notice that this was posted in the Mobile & Browser application forum. Can the application server access and manipulate folders outside of the webroot folder?

[Al Buchholz]

Re: Folder creation in xbasic script not working

I didn't notice that this was posted in the Mobile & Browser application forum. Can the application server access and manipulate folders outside of the webroot folder?

You would certainly hope not.

I'd go with that....

[coleresources]

Re: Folder creation in xbasic script not working

Well I was able to create an a5w page with the code above and run it in the browser and it did create the folder

[coleresources]

Re: Folder creation in xbasic script not working

Do you guys generate any documents from within your app that you need to store? How do you handle this?

[Pat Bremkamp]

Re: Folder creation in xbasic script not working

Josh,

I think your problem is the space in folderpath. Replace it with an underline and it will probably work.

You asked what others do, so here's what I do.

In one place, I use code similar to yours just to make sure the directories exists. Each project (Session.JOBNAME) has it's own directories.

'*********** make sure the target directories exists
vWipDir=dir_create_recurse("c:\enefen\000_NFN_Projects"+chr(92)+Session.JOBNAME+"\NFNWIP")
vFinDir=dir_create_recurse("c:\enefen\000_NFN_Projects"+chr(92)+Session.JOBNAME+"\NFNFinished")
sleep(0)

Then when I'm setting up to print reports
vSpath = "c:\a5v12\a5reports"
vRpath = "c:\enefen\000_NFN_Projects"
Session.SOURCE = vSpath+chr(92)+"NFN"+Session.JOBNO+"_"+vDatetime+"_"
Session.DESTINATION = vRpath+chr(92)+Session.JOBNAME+"\NFNWIP" + chr(92)+ "NFN"+Session.JOBNO+"_"+vDateTime+"_"

I use the session variables because I create between 4 and 20 reports, then append them together in a separate print routine and a separate append routine.

Then in the print routine
vSource = Session.SOURCE + RptArray[vIndx].Code+".pdf"
vDestination = Session.DESTINATION + RptArray[vIndx].Code+".pdf"
vRprtSaved = a5w_report_saveAs(RptArray[vIndx].Code+"@c:\nfn_v12\nfn.alb","pdf","","",vSource,global_variables(),pdfopts,args,opts)
sleep(0)
file.copy(vSource,vDestination)

Where RptArray[vIndx].code contains the name of the individual report. Reports are all printed into c:\a5v12\a5reports and then copied into the project directories. The sleep(0) gives them time to get printed before I try to copy them..

Pat

[coleresources]

Re: Folder creation in xbasic script not working

Pat,

It works when I run the script from an a5w page. It just doesn't seem to work within my script. I'll have to install a copy of the developer on the server so that I can debug

Thank you for the helpful information!

[GGandhi]

Re: Folder creation in xbasic script not working

It works when I run the script from an a5w page. It just doesn't seem to work within my script

I think that is because a5w page runs in the server and so it has access to the server computer areas, but not the script which runs in the browser - for safety reasons. I remember reading similar to this in one of the documents. if I see that, I will post a link. it has to do with accessing other areas of the server computer or files in the server computer other than the webroot.

edit:
here is that link:
http://wiki.alphasoftware.com/Access...de+the+Webroot

2.Create an A5W page that opens the file and sends it to the browser. Because the A5W page runs locally on the server, it has access to the whole file system. If you use this technique, make sure you provide some type of protection so that the user cannot specify any arbitrary file on your server.

[coleresources]

Re: Folder creation in xbasic script not working

Pat,

How do the folders get created? Is everyone correct in that you can not do this with a callback? I understand the security concerns but am just curious how you handle it. Does the function above create the project folder?

[Pat Bremkamp]

Re: Folder creation in xbasic script not working

Same way, except initially, I create the directories with a User Defined Function

In the AfterInsertRecord event
vMade=Make_Local_Dirs(vPNC,vOW,vCL)

calls this function
FUNCTION Make_Local_Dirs AS C (p_Projectid AS C, p_OwnerName AS C, p_ClientName AS C )
vProjectid = "NFN"+right("0"+alltrim(p_Projectid),7)
vOwner = alltrim(word(alltrim(p_OwnerName),1))
vClient = alltrim(word(alltrim(p_ClientName),1))
dim vPath as c
dim vProjectname as c
dim vResult as l
dim vDircount as n
vDircount = 0
vPath = "c:\enefen\000_NFN_Projects"
vProjectname = vProjectid+"_"+vOwner+"_"+vClient
vResult=dir_create_recurse(vPath+chr(92)+vProjectname+chr(92)+"ClientDocs")
sleep(.1)
if vResult = .t.
vDircount=vDircount+1
end if
.
Same for the other 4 directories
.
Make_Local_Dirs = str(vDircount,1,0)+" of 5 directories were created"
END FUNCTION

So far, this has worked over 4000 times

Pat

[frankbicknell]

Re: Folder creation in xbasic script not working

I create folders on my servers root drive by using the dir_create function. I am able to save images, pdfs etc in those folders and save and retrieve them from a browser on the client machine. I don't recall giving any special permissions to allow this. I guess when I convert to iis i will have some headaches.

[afrizalaulia]

Re: Folder creation in xbasic script not working

Fyi for All,

function saveFiles as v (e as p)
'This function is called after the file(s) selected in the Upload Files dialog have been uploaded to the server.
'The function is responsible for processing each uploaded file.

dim count as n
count = e.filecount
dim i as n
dim arr as p
arr = e.filearray
dim cn as sql::connection
dim cs as c
cs = e.tmpl.cs.connectionstring
cn.open(cs)
dim sql as c
sql = "INSERT INTO CLAIM_FILE_UPLOAD (CLIENT, CLAIM_NO, REOPEN_NO, CODE, LINKEDFILE) Values (:CLIENT, :CLAIM_NO, :REOPEN_NO, :CODE, :Filename)"

dim args as sql::arguments
args.add("CLAIM_NO",convert_type(e.primaryKeyArray[1],"N"))
args.add("CLIENT",convert_type(e.primaryKeyArray[2],"C"))
args.add("CODE",convert_type(e.primaryKeyArray[3],"C"))
args.add("REOPEN_NO",convert_type(e.primaryKeyArray[4],"N"))

genedate = cdate(now())
genemonth = month(now())
geneyear = year(now())
user = session.g_userid
claimno = convert_type(e.primaryKeyArray[1],"N")

for i = 1 to count
dim fn as c
dim fn1 as c
dim data as c
data = e.fileArray[i].tempFileUploadedData
fn = "C:\FileUpload_Doc"
fn1 = "C:\FileUpload_Doc" + chr(92) + user + chr(92) + claimno + chr(92) + e.fileArray[i].fileName
dim file as l
dim vDircount as n
vDircount = 0
file = dir_create_recurse(fn + chr(92) + user + chr(92) + claimno)
sleep(.1)
if file = .t.
vDircount=vDircount+1
end if
file.copy(data,fn1)
'file.From_blob(fn,data)

dim fntoStore as c
fntoStore = e.fileArray[i].fileName

args.Add("Filename",fntoStore)
flag = cn.Execute(sql,args)
next i
cn.Close()