INPUT "请输入文件名 ", fa$
INPUT "生成文件路径 ", p$
fa$ = LTRIM$(RTRIM$(fa$))
IF fa$ = "" THEN SYSTEM
f$ = DIR$(fa$)             '[color=FF00FF]这一句需要QB7.1支持[/color]
IF f$ <> UCASE$(fa$) THEN
  PRINT "文件名不正确,请重新执行程序"
  SYSTEM
END IF
PRINT "正在分拆文件"; f$; "为以下文件"
fr = FREEFILE
OPEN f$ FOR BINARY AS #fr
  fl& = 1500000
  DO UNTIL EOF(fr)
         IF fl& > 1400000 THEN
            CLOSE #f2
            IF i > 0 THEN PRINT p$ + "cf" + LTRIM$(STR$(i)) + ".cf"; "已完成"
            IF INKEY$ = CHR$(27) THEN EXIT DO
            i = i + 1
            f2 = FREEFILE
            OPEN p$ + "cf" + LTRIM$(STR$(i)) + ".cf" FOR BINARY AS #f2
            fl& = 0
         END IF
         r$ = INPUT$(16383, fr)
         PUT #f2, , r$
         fl& = fl& + 16383
  LOOP
IF i > 0 THEN PRINT p$ + "cf" + LTRIM$(STR$(i)) + ".cf"; "已完成"
CLOSE
PRINT "分拆完成,正在生成批处理文件"
f2 = FREEFILE
batf$ = p$ + "cf" + LTRIM$(STR$(i)) + ".bat"
OPEN batf$ FOR OUTPUT AS #f2
PRINT #f2, "copy ";
FOR j = 1 TO i
  PRINT #f2, "cf" + LTRIM$(STR$(j)) + ".cf";
  IF j <> i THEN PRINT #f2, "+";
NEXT
PRINT #f2, " "; f$
  PRINT #f2, "del cf??.cf"
  PRINT #f2, "del cf??.bat"
CLOSE
PRINT "已生成批处理文件"; batf$
SYSTEM


1400000是以软盘为基础的数字,对U盘或者其他载体具体更改
把生成的文件全部复制过去后执行其中的批处理文件就可以复原了
嘿嘿,比起老大的,当然是我的要快了,呵呵.