myisam2innodb.vbs

java编写天堂私服外挂系统

Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetFolder("..\..\db\MyISAM")

For Each FullName In src.Files
	MyISAM2InnoDB FullName
Next

' 巜掕偺僼僅儖僟偵奿擺偝傟偨奺僒僽僼僅儖僟傪張棟偡傞
tmpMessage = "僼僅儖僟堦棗:" & vbNewLine
For Each FolderName In src.Subfolders
    tmpMessage = tmpMessage & FolderName & vbNewLine
Next
WScript.Echo "MyISAM偐傜InnoDB傊曄姺廔傢傝傑偟偨丅"

Sub MyISAM2InnoDB(FullName)
	Set fso = CreateObject("Scripting.FileSystemObject")
	FileName = fso.GetFileName(FullName)
	Set destFolder = fso.GetFolder("..\..\db\InnoDB")
	Set destFile = destFolder.CreateTextFile(FileName)

	Set srcFile = fso.OpenTextFile(FullName) ' 僥僉僗僩僼傽僀儖偺僆乕僾儞
	Do Until srcFile.AtEndOfStream
		destFile.WriteLine( replace(srcFile.ReadLine,"MyISAM","InnoDB"))
	Loop
	destFile.close()
	srcFile.close()
End Sub