VFP ·R¥ÎªÌªÀ°Ï ­º­¶ VFP ·R¥ÎªÌªÀ°Ï
¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
 
 ±`¨£°ÝÃD±`¨£°ÝÃD   ·j´M·j´M   ·|­û¦Cªí·|­û¦Cªí   ·|­û¸s²Õ·|­û¸s²Õ   ·|­ûµù¥U·|­ûµù¥U 
 ­Ó¤H¸ê®Æ­Ó¤H¸ê®Æ   µn¤JÀˬd±zªº¨p¤H°T®§µn¤JÀˬd±zªº¨p¤H°T®§   µn¤Jµn¤J

³z¹L api ½Æ»s¸ê®Æ§¨(¥]§t¤l¸ê®Æ§¨)!

 
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD  
µoªí¤H ¤º®e
rcj811



µù¥U®É¶¡: 2003-08-12
¤å³¹: 35


²Ä 1 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤E¤ë 11, 2003 9:34 am    ¤å³¹¥DÃD: ³z¹L api ½Æ»s¸ê®Æ§¨(¥]§t¤l¸ê®Æ§¨)! ¤Þ¨¥¦^ÂÐ

¤£·Q¥Îdos¤Uxcopyªºª°¤Í,²{¦b³z¹Lwindows api¤è¦¡,´N¤£·|¦³¨º·Ð¤H
ªºdosµøµ¡!


DECLARE INTEGER SHFileOperation IN SHELL32.DLL STRING @ LPSHFILEOPSTRUCT
DECLARE INTEGER GetActiveWindow IN WIN32API
*!* SET PROCEDURE TO CLSHEAP ADDITIVE
oHeap = CREATEOBJ('Heap')
#DEFINE FO_COPY 2
#DEFINE FOF_ALLOWUNDO 0x40
#DEFINE FOF_SILENT 0x4
#DEFINE FOF_NOCONFIRMATION 0x10
#DEFINE FOF_NOCONFIRMMKDIR 0x200
#DEFINE FOF_NOERRORUI 0x400

cSourceString = "C:\TEMP"+ CHR(0) + CHR(0) &&¨Ó·½
cDestString = "D:\TEMP" + CHR(0) + CHR(0) &&¥Øªº¦a
nStringBase = oHeap.AllocBlob(cSourceString+cDestString)
cFileOpStruct = NumToDWORD(GetActiveWindow()) + ;
NumToDWORD(FO_COPY) + ;
NumToDWORD(nStringBase) + ;
NumToDWORD(nStringBase + LEN(cSourceString)) + ;
NumToDWORD(FOF_NOCONFIRMATION + ;
NOCONFIRMMKDIR) + ;
chr(0) +;
NumToDWORD(0) + ;
NumToDWORD(0)
IF SHFileOperation(cFileOpStruct) = 0
MESSAGEBOX("³Æ¥÷¦¨¥\!",64,"°T®§")
ELSE
MESSAGEBOX("³Æ¥÷¥¢±Ñ!"+"¿ù»~½X :"+ALLTRIM(STR(SHFileOperation(cFileOpStruct))),16,"°T®§")
ENDIF
oHeap = ''


Define class heap as custom
Protected inhandle, innumallocsactive,iaallocs[1,3]
inhandle = null
innumallocsactive = 0
iaallocs = null
Name = "heap"

Procedure alloc
Lparameter nsize
Declare integer HeapAlloc in WIN32API as HAlloc integer hHeap, integer dwFlags, integer dwBytes
Declare integer HeapSize in WIN32API as HSize integer hHeap, integer dwFlags, integer lpcMem
Local nptr
With this
nptr = halloc(.inhandle, 0, @nsize)
If nptr # 0
.innumallocsactive = .innumallocsactive + 1
Dimension .iaallocs[.inNumAllocsActive,3]
.iaallocs[.inNumAllocsActive,1] = nptr
.iaallocs[.inNumAllocsActive,2] = hsize(.inhandle, 0, nptr)
.iaallocs[.inNumAllocsActive,3] = .t.
Else
nptr = null
Endif
Endwith
Return nptr
Endproc

Function allocblob
Lparameter cbstringtocopy
Local nallocptr
With this
nallocptr = .alloc(len(cbstringtocopy))
If ! isnull(nallocptr)
.copyto(nallocptr,cbstringtocopy)
Endif
Endwith
Return nallocptr
Endfunc

Function allocstring
Lparameter cstring
Return this.allocblob(cstring + chr(0))
Endfunc

Function allocinitas
Lparameter nsizeofbuffer, nbytevalue
If type('nByteValue') # 'N' or ! between(nbytevalue,0,255)
nbytevalue = 0
Endif
Return this.allocblob(replicate(chr(nbytevalue),nsizeofbuffer))
Endfunc

Procedure dealloc
Lparameter nptr
Declare integer HeapFree in WIN32API as HFree ;
integer hHeap, ;
integer dwFlags, ;
integer lpMem
Local nctr
nctr = null
With this
nctr = .findallocid(nptr)
If ! isnull(nctr)
=hfree(.inhandle, 0, nptr)
.iaallocs[nCtr,3] = .f.
Endif
Endwith
Return ! isnull(nctr)
Endproc

Procedure copyto
Lparameter nptr, csource
Declare RtlMoveMemory in WIN32API as RtlCopy ;
integer nDestBuffer, ;
string @pVoidSource, ;
integer nLength
Local nctr
nctr = null
If type('nPtr') = 'N' and type('cSource') $ 'CM' ;
and ! (isnull(nptr) or isnull(csource))
With this
nctr = .findallocid(nptr)
If ! isnull(nctr)
=rtlcopy((.iaallocs[nCtr,1]), ;
csource, ;
min(len(csource),.iaallocs[nCtr,2]))
Endif
Endwith
Endif
Return ! isnull(nctr)
Endproc

Procedure copyfrom
Lparameter nptr
Declare RtlMoveMemory in WIN32API as RtlCopy ;
string @DestBuffer, ;
integer pVoidSource, ;
integer nLength
Local nctr, ubuffer
ubuffer = null
nctr = null
If type('nPtr') = 'N' and ! isnull(nptr)
With this
nctr = .findallocid(nptr)
If ! isnull(nctr)
ubuffer = repl(chr(0),.iaallocs[nCtr,2])
=rtlcopy(@ubuffer, ;
(.iaallocs[nCtr,1]), ;
(.iaallocs[nCtr,2]))
Endif
Endwith
Endif
Return ubuffer
Endproc

Protected function findallocid
Lparameter nptr
Local nctr
With this
For nctr = 1 to .innumallocsactive
If .iaallocs[nCtr,1] = nptr and .iaallocs[nCtr,3]
Exit
Endif
Endfor
Return iif(nctr <= .innumallocsactive,nctr,null)
Endwith
Endproc

Procedure sizeofblock
Lparameters nptr
Local nctr, nsizeofblock
nsizeofblock = null
With this
nctr = .findallocid(nptr)
Return iif(isnull(nctr),null,.iaallocs[nCtr,2])
Endwith
Endproc

Procedure destroy
Declare HeapDestroy in WIN32API as HDestroy integer hHeap
Local nctr
With this
For nctr = 1 to .innumallocsactive
If .iaallocs[nCtr,3]
.dealloc(.iaallocs[nCtr,1])
Endif
Endfor
hdestroy[.inHandle]
Endwith
DoDefault()
Endproc

Procedure init
Declare integer HeapCreate in WIN32API as HCreate ;
integer dwOptions, ;
integer dwInitialSize, ;
integer dwMaxSize
#Define swapfilepagesize 4096
#Define blockallocsize 2 * swapfilepagesize
With this
.inhandle = hcreate(0, blockallocsize, 0)
Dimension .iaallocs[1,3]
.iaallocs[1,1] = 0
.iaallocs[1,2] = 0
.iaallocs[1,3] = .f.
.innumallocsactive = 0
Endwith
Return (this.inhandle # 0)
Endproc

Enddefine

Function setmem
Lparameters nptr, csource
Declare RtlMoveMemory in WIN32API as RtlCopy ;
integer nDestBuffer, ;
string @pVoidSource, ;
integer nLength
rtlcopy(nptr, csource, len(csource))
Return .t.
Endfunc

Function getmem
Lparameters nptr, nlen
Declare RtlMoveMemory in WIN32API as RtlCopy ;
string @DestBuffer, ;
integer pVoidSource, ;
integer nLength
Local ubuffer
ubuffer = repl(chr(0),nlen)
=rtlcopy(@ubuffer, nptr, nlen)
Return ubuffer
Endfunc

Function getmemstring
Lparameters nptr, nsize
Declare integer lstrcpyn in WIN32API as StrCpyN ;
string @ lpDestString, ;
integer lpSource, ;
integer nMaxLength
Local ubuffer
If type('nSize') # 'N' or isnull(nsize)
nsize = 512
Endif
ubuffer = repl(chr(0), nsize)
If strcpyn(@ubuffer, nptr, nsize-1) # 0
ubuffer = left(ubuffer, max(0,at(chr(0),ubuffer) - 1))
Else
ubuffer = null
Endif
Return ubuffer
Endfunc

Function shorttonum
Lparameter tcint
Local b0,b1,nretval
b0=asc(tcint)
b1=asc(subs(tcint,2,1))
If b1<128
nretval=b1 * 256 + b0
Else
b1=255-b1
b0=256-b0
nretval= -( (b1 * 256) + b0)
Endif
Return nretval
Endfunc

Function numtoshort
Lparameter tnnum
Local b0,b1,x
If tnnum>=0
x=int(tnnum)
b1=int(x/256)
b0=mod(x,256)
Else
x=int(-tnnum)
b1=255-int(x/256)
b0=256-mod(x,256)
If b0=256
b0=0
b1=b1+1
Endif
Endif
Return chr(b0)+chr(b1)
Endfunc

Function dwordtonum
Lparameter tcdword
Local b0,b1,b2,b3
b0=asc(tcdword)
b1=asc(subs(tcdword,2,1))
b2=asc(subs(tcdword,3,1))
b3=asc(subs(tcdword,4,1))
Return ( ( (b3 * 256 + b2) * 256 + b1) * 256 + b0)
Endfunc

Function numtodword
Lparameter tnnum
Return numtolong(tnnum)
Endfunc

Function wordtonum
Lparameter tcword
Return (256 * asc(subst(tcword,2,1)) ) + asc(tcword)
Endfunc

Function numtoword
Lparameter tnnum
Local x
x=int(tnnum)
Return chr(mod(x,256))+chr(int(x/256))
Endfunc

Function numtolong
Lparameter tnnum
Declare RtlMoveMemory in WIN32API as RtlCopyLong ;
string @pDestString, ;
integer @pVoidSource, ;
integer nLength
Local cstring
cstring = space(4)
=rtlcopylong(@cstring, bitor(tnnum,0), 4)
Return cstring
Endfunc

Function longtonum
Lparameter tclong
Declare RtlMoveMemory in WIN32API as RtlCopyLong ;
integer @ DestNum, ;
string @ pVoidSource, ;
integer nLength
Local nnum
nnum = 0
=rtlcopylong(@nnum, tclong, 4)
Return nnum
Endfunc

Function allocnetapibuffer
Lparameter nsize
If type('nSize') # 'N' or nsize <= 0
Return null
Endif
If ! 'NT' $ os()
Return null
Endif
Declare integer NetApiBufferAllocate in NETAPI32.dll ;
integer dwByteCount, ;
integer lpBuffer
Local nbufferpointer
nbufferpointer = 0
If netapibufferallocate(int(nsize), @nbufferpointer) # 0
nbufferpointer = null
Endif
Return nbufferpointer
Endfunc

Function deallocnetapibuffer
Lparameter nptr
If type('nPtr') # 'N'
Return .f.
Endif
If ! 'NT' $ os()
Return .f.
Endif
Declare integer NetApiBufferFree in NETAPI32.dll ;
integer lpBuffer
Return (netapibufferfree(int(nptr)) = 0)
Endfunc

Function copydoubletostring
Lparameter ndoubletocopy
Declare RtlMoveMemory in WIN32API as RtlCopyDbl ;
string @DestString, ;
double @pVoidSource, ;
integer nLength
Local cstring
cstring = space( 8 )
=rtlcopydbl(@cstring, ndoubletocopy, 8 )
Return cstring
Endfunc

Function doubletonum
Lparameter cdoubleinstring
Declare RtlMoveMemory in WIN32API as RtlCopyDbl ;
double @DestNumeric, ;
string @pVoidSource, ;
integer nLength
Local nnum
nnum = 0.000000000000000000
=rtlcopydbl(@nnum, cdoubleinstring, 8 )
Return nnum
Endfunc
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
¦¶¨|¿³



µù¥U®É¶¡: 2003-08-25
¤å³¹: 661
¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï

²Ä 2 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤E¤ë 11, 2003 10:44 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

§Ú¥Î¤ñ¸û°½Ãiªº°µªk¨Ó°µ DOS ¤U XCOPY ªº¥\¯à
--> ¥u½Æ»s©Ò¦³¥Ø¿ý¤Î¨ä©Ò¦³¤l¥Ø¿ý


DECLARE INTEGER ShellExecute IN shell32;
¡@¡@INTEGER hwnd,;
¡@¡@STRING¡@lpOperation,;
¡@¡@STRING¡@lpFile,;
¡@¡@STRING¡@lpParameters,;
¡@¡@STRING¡@lpDirectory,;
¡@¡@INTEGER nShowCmd

WAIT WIND "½Æ»s¤¤..." NOWAIT
=ShellExecute(0,"Open","XCOPY.EXE","C:\TEMP D:\TEMP /t","",0)
WAIT CLEAR

¥¦¤£·|¥X²{°Q¹½ªº DOS µøµ¡¡A¦Ó¥B XCOPY ªº©Ò¦³¥\¯à³£¥i¥H¥Î¡A
¤£ª¾³o¼Ë¥i¤£¥i¥H¡H
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó MSN Messenger
catjoke



µù¥U®É¶¡: 2003-06-16
¤å³¹: 175
¨Ó¦Û: ­»´ä

²Ä 3 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤E¤ë 11, 2003 3:09 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¤ÓÃP´²¤F, ¤@®É¶K¤@­Ó API §â¾ã­Ó¥Ø¿ýDelete ¦Ü¦^¦¬¸ê·½¬}.
¤@®É¶K API °µ Xcopy.

¥i§_§â³o¨ÇÀɮ׺޲zªºµ{¦¡¤@¨Ã°µ°_¨Ó.
µM«á¦¬§@¤@­Ó§¹¾ãªº Custom Control ©Î .prg
¤H¦a­n¥Î: ¥u»Ý Set Proc To FileHandle.prg ADDITIVE ´N¦¨¤F..
ÁÙ­nºCºC¤F¸Ñ¨äµ{¦¡¹B§@¶Ü!?

_________________
ØpØ{~ ¿ß·íµM¬O "­T" ªº¹À! ^0^;
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
¦¶¨|¿³



µù¥U®É¶¡: 2003-08-25
¤å³¹: 661
¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï

²Ä 4 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤E¤ë 11, 2003 4:52 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

catjoke ¯à¤£¯à´£¨Ñ§A©ÒÁ¿ªºªF¦èµ¹¤j®a¤À¨É


¤]³\§AÃi±o·Q¤F¸Ñ³o¨Ç¦Ó¥u¬O­n¥Î¦Ó¤w¡A¦ý¬O¦b¹ê»Ú¶}µo¹Lµ{¤¤¡A¦U­Ó¶}µoªºµ{¦¡¨S¿ìªk§¹¥þ®M¥Î¡A­Y¯à¤F¸Ñ¤@¨Ç¡A¦]À³¦Û¤vÀô¹Ò»Ý¨D°µ¾A·íªº·f°t¥H²Å¦X¥»¨­¶}µoµ{¦¡ªº¹ê»Úª¬ªp¡A»Ý­nªº¥\¯à´N¯Ç¤Jµ{¦¡¤¤¡A¥Î¤£¨ì¬J¨Ï¥¦¦A¦h¦n¦h±j¡A¥Î¤£¨ì´N¬O©U§£¡A³o¬O§Úªº¬Ýªk¡I
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó MSN Messenger
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 5 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤E¤ë 11, 2003 9:13 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

XCOPY½d¨Òµ{¦¡
½Ð¦Û¦æ­×§ï¦¨³ßÅw¼Ò¦¡


¥N½X:
**********************************
*   ¥Î³~: XCOPY--½Æ»s¥Ø¿ý¤ÎÀÉ®×¥]§tªÅ¥Ø¿ý,¦s¦b«hÂл\
*   °Ñ¼Æ:
*   ¶Ç­È:lRet
*   ½d¨Ò:xcopy("C:\TEMP D:\TEMP ")
**********************************
FUNCTION XCopy
   PARAMETERS tcParam
   LOCAL lRet
   
   DECLARE INTEGER ShellExecute IN shell32.DLL ;
          INTEGER HWND,;
      STRING lpszOP, ;
      STRING lpszFile, ;
      STRING lpszParams, ;
      STRING lpszDir, ;
      INTEGER fsshowcmd

   WAIT WIND "½Æ»s¤¤..." NOWAIT
   lRet=ShellExecute(0,"Open","XCOPY.EXE"," "+tcParam+" /e/i/y/h/r","",1)
   WAIT CLEAR
   IF lRet<32
      MESSAGEBOX("½Æ»s¥¢±Ñ!!",0+16+0,"OK")
   ENDIF
   
   RETURN lRet
ENDFUNC

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Bill Chen



µù¥U®É¶¡: 2003-06-09
¤å³¹: 30


²Ä 6 ¼Ó

µoªíµoªí©ó: ¬P´Á¤» ¤E¤ë 13, 2003 12:09 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

­Y·Q¦³¨C­ÓÀɮצ¨¥\©Î¥¢±Ñªº°O¿ý, ½Ð°Ý¦p¦ó»s§@??
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 7 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤E¤ë 17, 2003 4:03 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¦¶¨|¿³ ¼g¨ì:
§Ú¥Î¤ñ¸û°½Ãiªº°µªk¨Ó°µ DOS ¤U XCOPY ªº¥\¯à
--> ¥u½Æ»s©Ò¦³¥Ø¿ý¤Î¨ä©Ò¦³¤l¥Ø¿ý


DECLARE INTEGER ShellExecute IN shell32;
¡@¡@INTEGER hwnd,;
¡@¡@STRING¡@lpOperation,;
¡@¡@STRING¡@lpFile,;
¡@¡@STRING¡@lpParameters,;
¡@¡@STRING¡@lpDirectory,;
¡@¡@INTEGER nShowCmd

WAIT WIND "½Æ»s¤¤..." NOWAIT
=ShellExecute(0,"Open","XCOPY.EXE","C:\TEMP D:\TEMP /t","",0)
WAIT CLEAR

¥¦¤£·|¥X²{°Q¹½ªº DOS µøµ¡¡A¦Ó¥B XCOPY ªº©Ò¦³¥\¯à³£¥i¥H¥Î¡A
¤£ª¾³o¼Ë¥i¤£¥i¥H¡H


XCOPY¤U¹F¥H¤U©R¥O±N¬OµL®Äªº
XCOPY c:\my document c:\temp

¤£¯à¦³ªÅ¥Õ

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
¦¶¨|¿³



µù¥U®É¶¡: 2003-08-25
¤å³¹: 661
¨Ó¦Û: ¥x¤¤¥«¤j¨½°Ï

²Ä 8 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤E¤ë 17, 2003 11:09 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

TO Ruey¡G
¤Þ¨¥¦^ÂÐ:

XCOPY¤U¹F¥H¤U©R¥O±N¬OµL®Äªº
XCOPY c:\my document c:\temp

¤£¯à¦³ªÅ¥Õ


§Ú§ä¤F¬ÛÃöªº»¡©ú¡A¤]´ú¤F¦n¤[¡A²×©ó°µ¥X¨Ó¤F

XCOPY c:\my document c:\temp

¶·§ï¬°

XCOPY c:\my" "document\*.* c:\temp

¤£«H§A¥i¥H¸Õ¸Õ¬Ý¡A¸Õ¹L«á§i¶D§Úµ²ªG¦p¦ó¡C§Ú©È§ÚªºÀô¹Ò°µ±o¨ì¦Ó§Aªº°µ¤£¥X¨Ó

¥H¤U¬O­×¥¿³B²zªº¥Ø¿ý¤¤§t¦³ªºªÅ¥Õ¡G

DECLARE INTEGER ShellExecute IN shell32;
¡@¡@INTEGER hwnd,;
¡@¡@STRING¡@lpOperation,;
¡@¡@STRING¡@lpFile,;
¡@¡@STRING¡@lpParameters,;
¡@¡@STRING¡@lpDirectory,;
¡@¡@INTEGER nShowCmd

WAIT WIND "½Æ»s¤¤..." NOWAIT
=ShellExecute(0,"Open","XCOPY.EXE",'c:\my" "document\*.* c:\temp',"",0)
WAIT CLEAR

³Æµù¡G
¡@1.my document ³o­Ó¤¤¶¡ªºªÅ¥Õ¥²¶·¥HÂù¤Þ¸¹(")¬A°_¨Ó¡A¤£¯à¨Ï¥Î³æ¤Þ¸¹(¥¦¬OµL®Äªº)¡C
¡@2.¦b¤W­zª¬ªp¤U¡Ac:\my document ¤@©w­n«ü©wÀɮסA§_«hµL®Ä¡C
¡@3.ÃD¥~¸Ü¡A¦b´ú¸Õ¹Lµ{·í¤¤¡F
¡@¡@DIR C:\MY DOCUMENT ¬OµL®Äªº¡A¦ý§ï¦¨¤U¦C¼gªk´N·|¦C¥X¥Ø¿ý
¡@¡@DIR "C:\MY DOCUMENT
¡@¡@¬Ý¼Ë¤l¡A¦b DOS µøµ¡¤U¡A­n³B²zªÅ¥Õªº°ÝÃD¡A¥i¯à¸òÂù¤Þ¸¹( " )¦³Ãö«Y¡A¦pªG¦³­þ¦ìª¾¹Dªº¸Ü¡A¯à¤£¯à§iª¾¤@Án
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó MSN Messenger
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 9 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤E¤ë 18, 2003 12:02 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

1.®Ú¾Ú§Ú´ú¸Õ,¤£»Ý­n¥[¤J*.*
XCOPY c:\my document c:\temp
¥u­n§ï¦¨
XCOPY c:\my" "document c:\temp
­Y­n«þ¨©¨ä¤l¥Ø¿ý¥u­n¥[¤W/s

2.
§PÂ_ªÅ¥Õ,­n¥[¤J"Âù¤Þ¸¹
§Ú±Ä¥Î¼Ó¥Dªº¤è¦¡,´N¨S¦³¦¹°ÝÃD

©Ò¥H­Y±Ä¥Î¦¹ªk»Ý¥[¤JªÅ¥Õ§PÂ_

3.Ãø©Ç¥~°ê¤H¤j³£¥H[]¨ú¥N"¤Î'
°£¤F¦n¿ëÃÑ¥~,³o¸òÂù¤Þ¸¹( " )¥i¯à¦³Ãö«Y

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
elleryq



µù¥U®É¶¡: 2007-06-21
¤å³¹: 768


²Ä 10 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤E¤ë 18, 2003 9:18 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

ÀɦW«e«á¥[¤WÂù¤Þ¸¹¤]¥i¥H
¦p: xcopy /s "c:\my documents\" d:\
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ °ÑÆ[µoªí¤Hªº­Ó¤Hºô¯¸
±q¤§«eªº¤å³¹¶}©lÅã¥Ü:   
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï ©Ò¦³ªº®É¶¡§¡¬° ¥x¥_®É¶¡ (GMT + 8 ¤p®É)
²Ä1­¶(¦@1­¶)

 
«e©¹:  
±z µLªk ¦b³o­Óª©­±µoªí¤å³¹
±z µLªk ¦b³o­Óª©­±¦^ÂФ峹
±z µLªk ¦b³o­Óª©­±½s¿è¤å³¹
±z µLªk ¦b³o­Óª©­±§R°£¤å³¹
±z µLªk ¦b³o­Óª©­±¶i¦æ§ë²¼
±z µLªk ¦b³o­Óª©­±ªþ¥[ÀÉ®×
±z µLªk ¦b³o­Óª©­±¤U¸üÀÉ®×


Powered by phpBB © 2001, 2005 phpBB Group
¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@