代码搜索:FileSystemObject
找到约 1,189 项符合「FileSystemObject」的源代码
代码结果 1,189
www.eeworm.com/read/426641/9007634
html web33.html
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.drives
list=""
For Each d In dc
list=list+d.driveLetter+"-"
If d.drivetype=3 Then
list=list+d.sharenam
www.eeworm.com/read/426641/9007689
html web37.html
Dim fso,myfile,msg
Set fso=CreateObject("scripting.filesystemobject")
myfile="d:/java"
If fso.fileexists(myfile)Then
msg=myfile+"exits"
Else
msg=myfile+"not exits"
www.eeworm.com/read/426641/9007695
html web31.html
Dim fso,myfolder,msg
Set fso=CreateObject("scripting.filesystemobject")
myfolder="d:/java"
If fso.folderexists(myfolder)Then
msg=myfolder+"exists"
Else
msg=myfolder
www.eeworm.com/read/426641/9007722
html web35.html
Dim fso,myfile
Set fso=CreateObject("Scripting.fileSystemobject")
myfile="D:\java.text"
fso.deletefile(myfile)
Set fso=Nothing
www.eeworm.com/read/380092/9165415
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