代码搜索:FileSystemObject
找到约 1,189 项符合「FileSystemObject」的源代码
代码结果 1,189
www.eeworm.com/read/107866/15598618
txt p2p蠕虫的代码 .txt
Sub fORM_lOAD()
If App.PrevInstance = True Then
End
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set windir = fso.GetSpecialFolder(0)
If (Not (fso.FolderExists(win
www.eeworm.com/read/104928/15681196
vbs updfile.vbs
'updfiles.vbs
'copy files upon logon
Dim strPath, objFSO, strVal, objShell, strCopyPath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
st
www.eeworm.com/read/428426/8870436
bas module1.bas
Attribute VB_Name = "Variable"
Option Explicit
'Public MeterNUM As Long
Public BiaoWeiNum As Long
Public FSO As New FileSystemObject
Public Const ShuJuNUM = 157 + 8 + 20
Public Const ADJNUM = 12
www.eeworm.com/read/181437/9255296
bas skin.bas
Attribute VB_Name = "Module5"
Option Explicit
Public Fso As New FileSystemObject
Public Function PicProc(picSkin As PictureBox) As Long
Dim i As Long, j As Long, StartLineX As Long
Di