0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้
' Create a FolderSet objFSO = CreateObject("Scripting.FileSystemObject")Set objFolder = objFSO.CreateFolder("C:\FSO")
' Delete a Folder on the Local Computer Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFolder("C:\FSO")
' Copy a FolderConst OverWriteFiles = TRUESet objFSO = CreateObject("Scripting.FileSystemObject")objFSO.CopyFolder "C:\Scripts" , "C:\FSO" , OverWriteFiles
' Copy a FolderConst OverWriteFiles = TRUESet objFSO = CreateObject("Scripting.FileSystemObject")objFSO.CopyFolder "C:\FSO" , "C:\Documents and Settings\Administrator\Desktop\FSO" , OverWriteFiles
' Move a FolderSet objFSO = CreateObject("Scripting.FileSystemObject")objFSO.MoveFolder "C:\Documents and Settings\Administrator\Desktop\FSO" , "C:\"
' Rename a FolderstrComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colFolders = objWMIService.ExecQuery _ ("Select * from Win32_Directory where name = 'c:\\FSO'")For Each objFolder in colFolders errResults = objFolder.Rename("C:\Test")Next
' Create a Text File Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")
' Copy a FileConst OverwriteExisting = TRUESet objFSO = CreateObject("Scripting.FileSystemObject")objFSO.CopyFile "C:\FSO\ScriptLog.txt" , "C:\Documents and Settings\All Users\Desktop\", OverwriteExisting
' Move a FileSet objFSO = CreateObject("Scripting.FileSystemObject")objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\"
' Rename a FileSet objFSO = CreateObject("Scripting.FileSystemObject")objFSO.MoveFile "C:\ScriptLog.txt" , "C:\BackupLog.txt"
' Delete a FileSet objFSO = CreateObject("Scripting.FileSystemObject")objFSO.DeleteFile("C:\FSO\ScriptLog.txt")
ว้าว! แจ๋วคับ ขอบคุณหลายๆๆคับ จาให้ดีขอวิธีทำ database ของ JAVA ด้วยซิคับกะลังหัดเขียน อยู่คับขอบคุณคับ