>Function GetFileUNC
>Lparameter pcDirText
> IF FILE(pcDirText) AND ADIR(laDir,JUSTPATH(pcDirText),"V") >= 1 ;
> AND LEFT(laDir(1),2) = "\\"
>
> pcDirText = STUFF(pcDirText, 1, 2, laDir(1))
> ENDIF
>RETURN pcDirText
Thank you very much. I will try this function on a network drive.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
