FiveTech Software tech support forums

how are FUNCTION Pathonly() and Fileonly() called under Fivewin

cFilePath( c )
cFileName( c ) OR cFileNoPath( c )

Please see \fwh\source\function\filename.prg for many other functions abt file and path names. etc

... Argument error: AT Args: [ 1] = C : [ 2] = U Stack Calls =========== Called from: => AT( 0 ) Called from: .\source\function\FILENAME.PRG => CFILENOPATH( 46 ) Called from: .\source\function\FILENAME.PRG => CFILENOEXT( 66 ) Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SETRDD( ...

... Local cPathMask:="C:\Work\Prg\WinBeach\bitmaps\servizi\pattino.png" Local only_Image := cFileNoPath( cPathMask ) ? only_Image nSTART := RAT( "\", only_Image ) ?SUBSTR(cPathMask,1,nSTART-1) any solution please

Otto ,
sorry I TRIED with these functions

//?cFileNoPath( cPathMask )
//?cFilePath( cPathMask )
//?cFileDisc( cPathMask )
//?cFileNoExt( cPathMask )
//?cFileSubDir( cPathMask )
//? cFileUNC( cPathMask )
//? cRelativePath( cPathMask )

with no success!!!!

none give me ..\images\name.png

... Args: [ 1] = C : [ 2] = A { ... } length: 5 Stack Calls =========== Called from: => AT( 0 ) Called from: .\source\function\FILENAME.PRG => CFILENOPATH( 48 ) Called from: .\source\function\FILENAME.PRG => CFILENOEXT( 68 ) Called from: export.prg => MAIN( 36 )

... Args: [ 1] = C : [ 2] = A { ... } length: 5 Stack Calls =========== Called from: => AT( 0 ) Called from: .\source\function\FILENAME.PRG => CFILENOPATH( 48 ) Called from: .\source\function\FILENAME.PRG => CFILENOEXT( 68 ) Algun advise ?

Probaste estas funciones de FWH?

cFileName()
Retrieves the filename without its path
Syntax:
cFileName( <cFullFileName> ) --> cFileName

o,

cFileNoPath()
Retrieves the filename without path (as cFileName()) _
Syntax:
cFileNoPath( <cFullFileName> ) --> cFileName

... ) oexcelsolver:Workbooks:Open(clibro) sysrefresh() oexcelsolver:Visible(.t.) hWndexcel := FindWindow(0,"Microsoft Excel - "+cfilenopath(clibro)) SetParent(hwndexcel,oWnd:hWnd) Con CreateOleObject("Excel.Application") no funcionaban las opciones en las que excel ...

Colocando al inicio de mi sistema la funcion: IsExeRunning(cFileNoPath(HB_ArgV(0))) me indica .F. si en un servidor nadie mas esta usando el mismo sistema. Perfecto! Pero si mas adelante vuelvo a usar la misma funcion en mi sistema, ya me regresa un .T., ...

Angel, Aqui sigue funcionando bien. Lo que he visto es que hay funciones de FWH repetidas dentro de AdoRdd.prg Cambia estas funciones a static en AdoRdd.prg ó simplemente bórralas de AdoRdd : ADORDD.obj : warning LNK4006: _HB_FUN_ADONULL already defined in Fivehm.lib(ADOFUNCS.obj); second definitio...

Angel, Aqui sigue funcionando bien. Lo que he visto es que hay funciones de FWH repetidas dentro de AdoRdd.prg Cambia estas funciones a static en AdoRdd.prg ó simplemente bórralas de AdoRdd : ADORDD.obj : warning LNK4006: _HB_FUN_ADONULL already defined in Fivehm.lib(ADOFUNCS.obj); second definition...

Adrian: para el caso de manejo de archivos podrias usar las funciones cFileNopath() y cFileNoExt() Aca la documentacion: http://wiki.fivetechsoft.com/doku.php?id=fivewin_funcion_cfilenopath http://wiki.fivetechsoft.com/doku.php?id=fivewin_funcion_cfilenoext ...

Adrian: para el caso de manejo de archivos podrias usar las funciones cFileNopath() y cFileNoExt() Aca la documentacion: http://wiki.fivetechsoft.com/doku.php?id=fivewin_funcion_cfilenopath http://wiki.fivetechsoft.com/doku.php?id=fivewin_funcion_cfilenoext ...

... con un consejo de Carlos, al usar : uData := FileStr( cFile ) oServer:Insert( "mfile", { "nombre", "dato" }, { cFileNoPath(cFile), HB_Base64Encode( uData, LEN( uData ) ) } ) y: uData:= HB_Base64Decode( oTmp:dato ) StrFile( uData, cFile ) Shellexecute( , "open", ...

... If( n > 0, Upper( Left( cPathMask, n ) ),; ( cDisk := cFileDisc( cPathMask ) ) + If( ! Empty( cDisk ), "\", "" ) ) function cFileNoPath( cPathMask ) local n := RAt( "\", cPathMask ) return If( n > 0 .and. n < Len( cPathMask ),; Right( cPathMask, Len( cPathMask ...