代码搜索：FileSystemObject

找到约 1,189 项符合「FileSystemObject」的源代码

代码结果 1,189
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/104928/15681154

vbs sol5-1.vbs

Dim objFSO, objDrive Set objFSO = CreateObject("Scripting.FileSystemObject") Set objDrive = objFSO.GetDrive("A") 'check if drive is ready, If objDrive.IsReady Then 'drive is ready, do somethin
·
www.eeworm.com/read/104928/15681155

vbs sol5-3.vbs

Dim objFSO, objFolder, objSub, nTotal Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("D:\Users") nTotal = 0 'loop through each subfolder, displaying its
·
www.eeworm.com/read/104928/15681156

vbs sol5-14.vbs

Dim objFSO, objFolder Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\Data") 'copy items from folder to network folder objFolder.Copy"H:\Data"
·
www.eeworm.com/read/104928/15681159

vbs sol5-13.vbs

Dim objFSO, objFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("C:\Data\report.doc") 'copy items from folder to network folder objFile.Copy "H:\Data\"
·
www.eeworm.com/read/104928/15681161

vbs sol5-12.vbs

Dim objFSO, objFolder Set objFSO = CreateObject("Scripting.FileSystemObject") 'delete the folder e:\data\word objFSO .DeleteFolder "e:\data\word" 'get and delete the folder e:\data\excel Set ob
·
www.eeworm.com/read/104928/15681163

vbs sol5-16.vbs

Dim objFSO, objTextFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("D:\data.txt") objTextFile.WriteLine "Write a line to a file with end of l
·
www.eeworm.com/read/104928/15681164

vbs sol5-7.vbs

Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("d:\data\report.doc") objFile.Name = "newreport.doc"
·
www.eeworm.com/read/104928/15681166

vbs sol5-6.vbs

Dim objFSO 'create an instance of an FSO object Set objFSO = CreateObject("Scripting.FileSystemObject") 'check if the specified file exists If objFSO.FileExists("d:\data\report.doc") Then
·
www.eeworm.com/read/104928/15681209

vbs returnnextdrive.vbs

'ReturnNextDrive.vbs Function ReturnNextDrive() Dim nF, objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") 'loop through drives starting from D: For nF = ASC("d") To ASC("z") 'if
·
www.eeworm.com/read/104928/15681337

vbs dirinfo.vbs

'dirinfo.vbs Dim objIE, objFSO Dim objFolder, objSrcFolder Set objIE = CreateObject("ENTWSH.HTMLGen") Set objFSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next
·