VFP 中使用 Wscript.shell

数据库学习笔记 2009-1-12 21:54

Shelltpara='a -ad -y -dh -ep1 '+' "'+allt(thisform.bkfile.value)+'" '+' "'+thisform.comment+'\sur"' &&messageb("rar.exe "+Shelltpara)
oShell=Createobject("Wscript.shell")
oShell.Run("rar.exe "+Shelltpara,0,.T.)

if director('&filen0.')
   commandstr= 'dele file   '+ ' "&filen0.\*.*" '   &&   messagebox(commandstr)
   &commandstr.
   commandstr= 'rd '+' "&filen0."' &&    messagebox(commandstr)
   &commandstr.
endif
if director( '&filen.')
   commandstr= 'dele file   '+' "&filen.\*.*" ' &&    messagebox(commandstr)
   &commandstr.
   commandstr= 'rd    '+' "&filen." '   &&   messagebox(commandstr)
   &commandstr.
endif

标签集:TAGS:

回复Comments() 点击Count()

回复Comments

{commentauthor}

{commenttime}

{commentnum}

{commentcontent}

作者:

{commentrecontent}