FiveTech Software tech support forums

Code: Select all | Expand

#include "Fivewin.ch"
#include "Directry.ch"


FUNCTION MAIN()

    LOCAL aDir := DIRECTORY( "25_10_2024_*.docx" )

    LOCAL i

    FOR i = 1 TO LEN( aDir )
        ? WAITRUN( "CMD /C COPY /b " + aDir[ i, F_NAME ] + " Test" + LTRIM( STR( i ) ) + ".docx", 0 )
    NEXT

    RETURN NIL

Code: Select all | Expand

function CopyX()
   WaitRun( "xcopy " + cSrcDir + "my*file.txt " + cDstDir + " /Y" )
? "Copied"
return nil

Code: Select all | Expand

function CopyHB()
   HB_CDPSELECT( "UTF8" )
   XBROWSER( aFiles  := DIRECTORY( cSrcDir + "My*File.txt" ) )
   AEval( aFiles, { |a| FileCopy( cSrcDir + a[1], cDstDir + a[1] ) } )
? "copied"
return nil
 

Code: Select all | Expand

function NatCreate()

   local aFiles := { "Own", Chr(196)+Chr(197)+Chr(198), Chr(196)+Chr(197)+Chr(198), ;
                     CHR(208)+CHR(221)+CHR(222), HEXTOSTR( "E0B0AEE0B0A8E0B0B5" ) }
   local cdp := { "DEWIN", "DEWIN", "RU1251", "TRWIN", "UTF8" }

   FW_setunicode( .t. )
   WinExec( "del c:\natfiles\src\*.*" )
   AEval( aFiles, { |c,i| aFiles[ i ] := "My" + c + "File.txt" } )
   xbrowser afiles
   AEVAL( aFiles, <|c,i|
      HB_CDPSELECT( cdp[ i ] )
      HB_MEMOWRIT( "c:\natfiles\src\" + c, c )
      return nil
      > )

return nil

Code: Select all | Expand

function NatRead()

   local cSrcDir  := "c:\natfiles\src\"
   local cDstDir  := "c:\natfiles\dst\"
   local aFiles
   local cmd

   FW_SetUnicode( .t. )

   WinExec( "CMD /K DIR c:\natfiles\src\*.*" )

   FW_SetUnicode( .t. )
   HB_CDPSELECT( "UTF8" )
   XBROWSER ( aFiles  := DIRECTORY( cSrcDir + "My???File.txt" ) ) ;
      COLUMNS 1, ;
              { |x,o| If( IsUtf8( o:oBrw:aRow[ 1 ] ), "UTF8", "...." ) }, ;
              { |x,o| Len( o:oBrw:aRow[ 1 ] ) }, ;
              {|x,o| StrToHex( o:oBrw:aRow[ 1 ] ) } ;
      TITLE BeforAtNum( " ", Version(), 1 )

#ifndef __XHARBOUR__
   if MsgNoYes( "Copy Files (Y/N)?" )
      AEval( aFiles, { |a| FileCopy( cSrcDir + a[1], cDstDir + a[1] ) } )
      ? "Copied"
   endif
#endif

return nil