Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Check if file exists only in a particular place
Message
 
 
À
05/10/2007 16:33:34
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
Divers
Thread ID:
01258744
Message ID:
01259367
Vues:
25
>>I was refering to yours modification. However Cetin's code has the same probem. It'll check if file 'EMPS.exe' exists anywhere along VFP search path. To check for a file in specific location, you can use SYS(2000) or ADIR()
>
>Tssk tssk:) I think you made a typo.
>
>lcFileName = "AlocalFile.txt"
>STRTOFILE("Are you sure?",m.lcfileName)
>
>? "Exists in search path",;
> FILE(m.lcfileName)
>? "Exists in the same folder where exe is",;
> FILE(forcepath(m.lcFileName,justpath(application.servername)))
>
>ERASE (m.lcFileName)
>
Hi Cetin,

My point is that FILE() function is not reliable when looking for files in specific place. It could find a file in EXE ignoring path provided or give false positive in the root of drive.
CLEAR

CD ("C:\temp")
MD temp2

lcFilePath = FULLPATH("") + "\temp2"
lcFileName = "AlocalFile.txt"
STRTOFILE("Are you sure?", "temp2\" + m.lcFileName)
SET PATH TO (lcFilePath  )

? "Exists in drive root", FILE(JUSTDRIVE(_VFP.servername) + "\" + m.lcFileName)
? "Exists in search path", FILE(m.lcfileName)
? "Exists in the same folder where exe is", ;
		FILE(forcepath(m.lcFileName,justpath(application.servername)))

ERASE ("temp2\" + m.lcFileName)
RMDIR temp2
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform