Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Cannot create file error
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00559457
Message ID:
00559494
Vues:
19
If there is no such directory, you should create it first. Look at WSH solution as alternative (check George Tasker & Ed Rauh articles in vfug)

>I am trying to copy files that are .SCX forms and .EXE from a group of projects .PJX that I list in a projects DB. I get the error cannot create file when I do COPY FILE current.SCX TO target.SCX
>
>Is there a way to do this without having a file already there? Where I create the destination directory and copy to it in one step? Thanks for the help.
>
>Here's my code -
>
>*****************************************
>* Copy/Backup .SCX forms and .EXE files *
>*****************************************
>
>PUBLIC proj_drive proj_dir
>USE projdbfs IN 0 SHARED
>SELECT projdbfs
>SCAN
>	SELECT projdbfs
>	pathname = projdbfs.proj_drive+":\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(projdbfs.proj_name)+".PJX"
>	IF FILE(pathname)
>		USE (pathname) IN 0 SHARED ALIAS proj_file
>	ELSE
>		MESSAGEBOX("Project not found at expected location. Verify the project name, drive, and directory for accuracy.",64,"Data Dictionary")
>		RETURN
>	ENDIF
>	SELECT proj_file
>	SCAN
>		IF proj_file.type = "K"
>			FormName = SUBSTR(ALLT(proj_file.name),1,Len(ALLT(proj_file.name))-5)
>			formpath = projdbfs.proj_drive+":\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(FormName)+".SCX"
>			IF FILE(formpath)
>				destpath = "D:\BACKUP\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(FormName)+".SCX"
>				COPY FILE (formpath) TO (destpath)
>			ENDIF
>		ENDIF
>		IF proj_file.type = "P"
>			ProgName = SUBSTR(ALLT(proj_file.name),1,Len(ALLT(proj_file.name))-5)
>			progpath = projdbfs.proj_drive+":\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(ProgName)+".EXE"
>			IF FILE(progpath)
>				destpath = "D:\BACKUP\"+ALLT(projdbfs.proj_dir)+"\"+ALLT(ProgName)+".EXE"
>				COPY FILE (progpath) TO (destpath)
>			ENDIF
>		ENDIF
>	ENDSCAN
>	SELECT proj_file
>	USE
>ENDSCAN
>SELECT projdbfs
>USE
>
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform