movedb.vbs

来自「Vc.Net入门与提高源码」· VBS 代码 · 共 34 行

	Dim file1, file2, file3, f2
	Set file1 = CreateObject("Scripting.FileSystemObject")
	Set file2 = CreateObject("Scripting.FileSystemObject")
	Set file3 = CreateObject("Scripting.FileSystemObject")
	
	if file3.FolderExists("c:\\inetpub\\wwwroot\\bids") THEN
		Set f2 = file1.GetFile("c:\\inetpub\\wwwroot\\bids\\bidinfo.mdb")	
	end if
	
	if file3.FolderExists("d:\\inetpub\\wwwroot\\bids") THEN
		Set f2 = file1.GetFile("d:\\inetpub\\wwwroot\\bids\\bidinfo.mdb")
	end if
	
	if file3.FolderExists("e:\\inetpub\\wwwroot\\bids") THEN
		Set f2 = file1.GetFile("e:\\inetpub\\wwwroot\\bids\\bidinfo.mdb")
	end if
	
	
		
	if NOT file3.FolderExists("c:\\inetpub") THEN
		file2.CreateFolder("c:\\inetpub")
	end if
	
	if NOT file3.FolderExists("c:\\inetpub\\vcbids") THEN
		file2.CreateFolder("c:\\inetpub\\vcbids")
	end if
	
	if NOT file3.FolderExists("c:\\inetpub\\vcbids\\data") THEN
		file2.CreateFolder("c:\\inetpub\vcbids\\data")
	end if
		
	f2.Move("c:\\inetpub\\vcbids\\data\\BidInfo.mdb")