Function ReadEntireFile(filespec)
7 L# k4 H* r$ D. I/ d* e Const ForReading = 1
: X) F1 j8 F! Y+ A. D0 h9 ? Dim fso, theFile, retstring7 N! p7 n$ K' ^0 |, Q5 V5 `
Set fso = CreateObject("Scripting.FileSystemObject")
# M. ~; X. o/ L' E: L2 h7 y$ C5 e. F Set theFile = fso.OpenTextFile(filespec, ForReading, False)2 [* v3 z1 c8 }% }1 ~ o1 k: v4 v
Do While theFile.AtEndOfStream <> True9 c4 F0 W' G( z7 j1 T9 u- P, O
retstring = retstring+"lovexia = lovexia + """+theFile.ReadLine+""" + vbCrLf"+Chr(13) & Chr(10)! e7 L6 ]; s/ e4 e8 l- G$ `
Loop0 Q) e" ^1 y8 v( l
theFile.Close
0 Z1 k- ]1 y# h6 d ReadEntireFile = retstring
3 K" C, [8 E; |) eEnd Function
$ G% i m ]0 D6 F1 d ~Function WriteEntireFile(filespec)- }* }9 ? g+ u8 b5 L* I7 |4 I
Const ForReading = 1, ForWriting = 2
( h7 g# Q! m: m' m Dim fso, f
+ h! @ D4 b! p* r* c Set fso = CreateObject("Scripting.FileSystemObject")
, t1 [) N1 m2 x8 H/ ` Set f = fso.OpenTextFile("2.txt", ForWriting, True)
2 r1 Y2 g" P* x2 a6 _7 L" @ f.Write filespec
( W8 k- c: a) p/ v7 ? f.Close
6 d; c" x3 w) f7 J7 E/ G3 rEnd Function
8 k- z* o' F+ L# m& |% n' L2 C0 rWriteEntireFile ReadEntireFile("1.txt")

老大,我的硬盘最近在一次开机中无缘无故被格式化了,是不是别人在我的电脑上放置了脚本?有没有这样可以格式化别人硬盘的脚本?; Q' p( `0 l+ N% J8 ]
但是我找了好久都没有找到,只好把format.com改名了,但是数据丢失了不少.

通过脚本包括批处理可以格式化硬盘，但是脚本是运行在相应的账户权限下。