CLOSE ALL
USE yxxx ALIAS yx
GO top
DO WHILE NOT EOF()
lcYXDM = 'd:/文件/' + SYS(2000, yxdm + '*.html')
lcYXDH = 'd:/文件/' + yxdh + '.html'
WAIT WINDOW lcYXDM NOWAIT
IF FILE(lcYXDM)
RENAME &lcYXDM TO &lcYXDH
ENDIF
SELECT yx
SKIP
ENDDO
查找以院校代码开头的.html文件
SYS(2000,yxdm+'*.html')