FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour C贸mo especificar Path del servidor? (SOLUCIONADO)
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
C贸mo especificar Path del servidor? (SOLUCIONADO)
Posted: Tue Jan 31, 2017 07:03 PM
Hola Amigos del foro:

Tengo una aplicaci贸n instalada en un servidor, mapeo la unidad y me conecto desde
una PC terminal.

El tema es que necesito crear una carpeta en el servidor pero no me la esta creando
con el siguiente c贸digo:
Code (fw): Select all Collapse
cDir聽 聽 := "\" + CurDir(CurDrive() + ":\") + "\Fichas"
nError聽 := MakeDir(cDir)


Y la ruta correcta al servidor es:
Code (fw): Select all Collapse
\\Servidor\SiaWinCFDI\Fichas


C贸mo debo especificarla sin usar constantes??

Gracias por el apoyo
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: C贸mo especificar Path del servidor?
Posted: Wed Feb 01, 2017 04:06 PM
Code (fw): Select all Collapse
聽 聽PRIVATE cDirExe

聽 聽IF FWVERSION = "FWHX 16.12"
聽 聽 聽 cDirExe := GETCURDIR()
聽 聽ELSE
聽 聽 聽 cDirExe := CURDRIVE() + ":\" + GETCURDIR()
聽 聽ENDIF

聽 聽IF SUBS( cDirExe, LEN(ALLTRIM(cDirExe)) , 1 )="\"
聽 聽 聽 cDirExe:= SUBS( cDirExe, 1 , LEN(ALLTRIM(cDirExe))-1 )
聽 聽ENDIF

聽 聽LCHDIR( cDirExe )
聽 聽SET DEFAULT TO

聽 聽IF .NOT. lIsDir( cDirexe+"\carpeta" )
聽 聽 聽 lMkDir( UPPER( cDirexe+"\carpeta" ) )
聽 聽ENDIF


Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo especificar Path del servidor?
Posted: Tue Feb 14, 2017 07:36 PM
Karinha:

Disculpa la tardanza, no me funciono tu aportaci贸n.

Si entro a la red desde una pc terminal, luego a la aplicaci贸n que est谩
instalada en el servidor, en el explorador de archivo aparece as铆

Code (fw): Select all Collapse
\\Servidor\SiaWinCFDI\Nominas


Con tu ejemplo queda as铆
\\Nominas

Alguna otra idea?

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: C贸mo especificar Path del servidor?
Posted: Wed Feb 15, 2017 06:09 PM
Mira se esto ayuda:

Code (fw): Select all Collapse
// Many thanks to Jim Gale for his superb feed-back

#include "FiveWin.ch"
#include "struct.ch"

//------------------------------------------------------------------------//

function Main()

   local cLongName := Space( 256 )
   local nNamePos  := 0
   local hFile

   lMkDir( "this is a long name directory" )

   LCreat( "this is a long filename file" )

   MsgInfo( GetFullPathName( "thisis~1", Len( cLongName ),;
                             @cLongName, @nNamePos ) )
   MsgInfo( cLongName )
   MsgInfo( nNamePos )   // this returns an invalid value

   MsgInfo( "LongName: " + GetLongFileName( "thisis~1" ) )

   hFile = FOpen( "tutor01.prg" )
   FCommit( hFile )
   FClose( hFile )

   MsgInfo( "ok" )

return nil

//------------------------------------------------------------------------//

function GetLongFileName( cShortName )

   local oWin32FindData

   STRUCT oWin32FindData
      MEMBER nFileAttributes  AS DWORD
      MEMBER nCreationTime    AS STRING LEN 8
      MEMBER nLastReadAccess  AS STRING LEN 8
      MEMBER nLastWriteAccess AS STRING LEN 8
      MEMBER nSizeHight       AS DWORD
      MEMBER nSizeLow         AS DWORD
      MEMBER nReserved0       AS DWORD
      MEMBER nReserved1       AS DWORD
      MEMBER cFileName        AS STRING LEN 260
      MEMBER cAltName         AS STRING LEN  14
   ENDSTRUCT

   FindFirstFile( cShortName, oWin32FindData:cBuffer )

return oWin32FindData:cFileName

//------------------------------------------------------------------------//

DLL32 Function GetFullPathName( lpszFile AS LPSTR, cchPath AS DWORD,;
               lpszPath AS LPSTR, @nFilePos AS PTR ) AS DWORD ;
               PASCAL FROM "GetFullPathNameA" LIB "kernel32.dll"

DLL32 FUNCTION FindFirstFile( cFile AS LPSTR, cWin32DataInfo AS LPSTR ) ;
               AS LONG PASCAL FROM "FindFirstFileA" LIB "kernel32.dll"

//------------------------------------------------------------------------//


Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Francisco Horta
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: C贸mo especificar Path del servidor?
Posted: Thu Feb 16, 2017 04:27 PM

Armando,

yo lo hago asi:

     IF ! FILE( cFilePath( GetModuleFilename( GetInstance() ) ) + "documentos" )
        lMkDir("documentos")
     ENDIF

Saludos

____________________

Paco
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: C贸mo especificar Path del servidor?
Posted: Thu Feb 16, 2017 04:34 PM
脡s verdad, desculpa mi falla:

Code (fw): Select all Collapse
    PRIVATE cDirExe := cFILEPATH(GETMODULEFILENAME(GETINSTANCE()))


Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo especificar Path del servidor? (SOLUCIONADO)
Posted: Thu Mar 16, 2017 04:35 PM

Paco Horta:

Hasta ahora pude probar tu sugerencia y va de 100.

Muchas gracias a ambos, Paco y Karinha

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: C贸mo especificar Path del servidor? (SOLUCIONADO)
Posted: Thu Mar 16, 2017 06:29 PM
Yo lo hago as铆

Code (fw): Select all Collapse
ExeOn:=hb_CurDrive()+":\"+CURDIR()+"\"
Saludos,



Adhemar C.
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo especificar Path del servidor? (SOLUCIONADO)
Posted: Thu Mar 16, 2017 07:54 PM

Ademar:

Gracias por el ejemplo.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions