代码搜索:FileSystemObject
找到约 1,189 项符合「FileSystemObject」的源代码
代码结果 1,189
www.eeworm.com/read/406189/11448246
bas module1.bas
Attribute VB_Name = "Module1"
'Option Explicit
'
'Sub dataDaoRu()
'Dim fso As New FileSystemObject
'Dim filename As File, sPath, Fname As String
'On Error GoTo fff
'Form4.CommonDialog1.ShowOpen
www.eeworm.com/read/344193/11902810
bas fafso.bas
Attribute VB_Name = "Fafso"
Option Explicit
Public Sub onefile()
Main.Scmnet4.SendData "7"
On Error GoTo er
Dim filex As String '要发送的的数据
Dim fs, d, dc
Set fs =
www.eeworm.com/read/344090/11909087
txt searchfolderfiles.txt
Dim FSO, f, fc, fj, s, f1
Dim sFolder As String
sFolder = "C:\mydir\" 'makesure there is a ending slash
Set FSO = CreateObject("Scripting.FileSystemObject")