代码搜索:FileSystemObject
找到约 1,189 项符合「FileSystemObject」的源代码
代码结果 1,189
www.eeworm.com/read/234831/14095971
txt 新建 文本文档.txt
Dim fso As New FileSystemObject, fill As File
Dim HelpPath As String
If Right(Trim(App.Path), 1) "\" Then
HelpPath = App.Path + "\"
Else
HelpPath = App.Path
End If
'He
www.eeworm.com/read/232872/14179778
frm form2.frm
VERSION 5.00
Begin VB.Form Form2
Caption = "产品参数设定"
ClientHeight = 5610
ClientLeft = 60
ClientTop = 450
ClientWidth = 8925
LinkTopic
www.eeworm.com/read/224537/14586004
aspx 4-18.aspx
Sub Page_Load(Sender As Object,e As Eventargs)
Dim Content As String
Dim objFile As Object
Dim fsoA As FileSystemObject
fsoA=Server
www.eeworm.com/read/121569/14751035
txt allcode.txt
Private Sub Command1_Click()
Dim fso As New FileSystemObject, drv As Drive, str As String
Set drv = fso.GetDrive(fso.GetDriveName("c:"))
str = "C盘:" & drv.VolumeName & vbCrLf
str =