Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
File()
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: File()
Miscellaneous
Thread ID:
00862385
Message ID:
00862554
Views:
14
>>However I don't trust File() and use my own IsFile() function :
>>
>>	Procedure IsFile
>>	Lparameters tcPath, tcFile
>>	Local arrFiles[1]
>>	Local lcFullPath
>>	tcPath = Iif(Empty(m.tcPath), Sys(5)+Curdir(),m.tcPath)
>>	lcFullPath = Iif( Empty(tcFile), m.tcPath, Addbs(m.tcPath)+m.tcFile )
>>	Return ( Adir(arrFiles,m.lcFullPath) = 1 )
>>Endproc
>>
Cetin
>
>
>With good reason apparently !
>
>
>
>Local cEmployeesFolder , xFile
>
>cEmployeesFolder = Addbs(Addbs(oApp.cEmployeeImagesFolder) + "_" + Transform(employees.Id))
>If Not Directory(cEmployeesFolder)
>	Md (cEmployeesFolder)
>Endif
>
>xFile = cEmployeesFolder + "300x350.jpg"
>lFileExists = File(xFile)   && this returns .T. when the file doesnt exist
>lFileExists2 = Adir(aMyFile,xFile) > 0  && this returns false when the file doesnt exist
>
>
Greg, please post the value of cEmployeesFolder and xFile after its allocation.
In the End, we will remember not the words of our enemies, but the silence of our friends - Martin Luther King, Jr.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform