In the early stage, system operations were performed under. net, and the implementation of the same functions was very complicated. I didn't expect javascript to be so simple, so I searched the code online and improved it.
Copy codeThe Code is as follows:
Function PathList (path ){
Var fso = new ActiveXObject ("Scripting. FileSystemObject ");
Var fldr = fso. GetFolder (path );
Var fd = new Enumerator (fldr. SubFolders );
For (;! Fd. atEnd (); fd. moveNext ()){
Sd = fd. item ();
WScript. Echo (sd. path );
// Write a file
WriteFile ("a. text", sd. path );
// Document. write (sd. path );
PathList (sd. path );
}
}
Function FileList (path ){
Var fso = new ActiveXObject ("Scripting. FileSystemObject ");
Var fldr = fso. GetFolder (path );
Var fd = new Enumerator (fldr. SubFolders );
For (;! Fd. atEnd (); fd. moveNext ()){
Sd = fd. item ();
Var fc = new Enumerator (sd. files );
For (;! Fc. atEnd (); fc. moveNext ())
{
WScript. Echo (fc. item ());
WriteFile ("B. text", fc. item ());
}
WScript. Echo (sd. path );
// Write a file
WriteFile ("a. text", sd. path );
// Document. write (sd. path );
FileList (sd. path );
}
}
// Current directory file
Function CurFileList (path ){
Var fso = new ActiveXObject ("Scripting. FileSystemObject ");
Var fldr = fso. GetFolder (path );
Var fc = new Enumerator (fldr. files );
For (;! Fc. atEnd (); fc. moveNext ())
{
WScript. Echo (fc. item ());
WriteFile ("c. text", fc. item ());
}
}
/*
Object. OpenTextFile (filename [, iomode [, create [, format])
Parameters
Object
Required. The object should be the name of FileSystemObject.
Filename
Required. Specifies the string expression of the file to be opened.
Iomode
Optional. It can be one of the three constants: ForReading, ForWriting, or ForAppending.
Create
Optional. Boolean value, indicating whether to create a new file when the specified filename does not exist. If a new file is created, the value is True. If the file is not created, the value is False. If not, no new file is created.
Format
Optional. Use one of the three-state values to specify the file opening format. If ignored, the file is opened in ASCII format.
Set
The iomode parameter can be any of the following settings:
Constant Value description
ForReading 1 open the file in read-only mode. This file cannot be written.
ForWriting 2 open the file in write mode
ForAppending 8 open the file and write it from the end of the file.
The format parameter can be any of the following settings:
Value description
TristateTrue open a file in Unicode format.
TristateFalse open an object in ASCII format.
TristateUseDefault: open a file by default.
*/
// Read the file
Function readFile (filename ){
Var fso = new ActiveXObject ("Scripting. FileSystemObject ");
Var f = fso. OpenTextFile (filename, 1 );
Var s = "";
While (! F. AtEndOfStream)
S + = f. ReadLine () + "\ n ";
F. Close ();
Return s;
}
// Write an object
Function writeFile (filename, filecontent ){
Var fso, f, s;
Fso = new ActiveXObject ("Scripting. FileSystemObject ");
F = fso. OpenTextFile (filename, 8, true );
F. WriteLine (filecontent );
F. Close ();
// Alert ('OK ');
WScript. Echo ("successfully written ");
}
// Delete an object
Function deleteFile (filename, filecontent ){
Var fso, f, s;
Fso = new ActiveXObject ("Scripting. FileSystemObject ");
F = fso. GetFile (filename );
F. Delete ();
// Alert ('OK ');
WScript. Echo ("deleted successfully ");
}
// Batch Delete. The folder is not deleted and the current directory file cannot be deleted.
Function DelFileList (path ){
Var fso = new ActiveXObject ("Scripting. FileSystemObject ");
Var fldr = fso. GetFolder (path );
Var fd = new Enumerator (fldr. SubFolders );
For (;! Fd. atEnd (); fd. moveNext ()){
Sd = fd. item ();
Var fc = new Enumerator (sd. files );
For (;! Fc. atEnd (); fc. moveNext ())
{
WScript. Echo (fc. item ());
WriteFile ("B. text", fc. item ());
Fc. item (). Delete ();
WScript. Echo ("deleted successfully ");
}
WScript. Echo (sd. path );
// Write a file
WriteFile ("a. text", sd. path );
WriteFile ("a. text", "deleted ");
// Document. write (sd. path );
DelFileList (sd. path );
}
}
// Delete the current directory file
Function CurDelFileList (path ){
Var fso = new ActiveXObject ("Scripting. FileSystemObject ");
Var fldr = fso. GetFolder (path );
Var fc = new Enumerator (fldr. files );
For (;! Fc. atEnd (); fc. moveNext ())
{
WScript. Echo (fc. item ());
WriteFile ("c. text", fc. item ());
Fc. item (). Delete ();
WriteFile ("c. text", "deleted successfully ");
}
}
/*
The Drive object collects the content of physical or logical Drive resources in the system. It has the following attributes:
L TotalSize: the size of the drive in bytes.
L AvailableSpace or FreeSpace: The drive space in bytes.
L DriveLetter: drive letter.
L DriveType: Drive Type, value: removable (Mobile Medium), fixed (fixed medium), network (network Resources), CD-ROM or ramdisk.
L SerialNumber: the serial number of the drive.
L FileSystem: The file system type of the drive. Values: FAT, FAT32, and NTFS.
L IsReady: whether the drive is available.
L ShareName: Share Name.
L VolumeName: the name of the volume label.
L Path and RootFolder: The drive Path or root directory name.
*/
Function getDriveinfo ()
{
Var fso, drv, s = "";
Fso = new ActiveXObject ("Scripting. FileSystemObject ");
Drv = fso. GetDrive (fso. GetDriveName ("c :\\"));
S + = "Drive C:" + "-";
S + = drv. VolumeName + "\ n ";
S + = "Total Space:" + drv. TotalSize/1024;
S + = "Kb" + "\ n ";
S + = "Free Space:" + drv. FreeSpace/1024;
S + = "Kb" + "\ n ";
WScript. Echo (s );
}
CurFileList ("D: \ web_01 ");
FileList ("D: \ web_01 ");
GetDriveinfo ();