|
FileSystemObject的方法和屬性
1,FileExists : 如果文件存在就返回TRUE
Sub FileExists()
Dim fs As Object
Dim strFile As String
Set fs = CreateObject('scripting.filesystemobject')
strFile = InputBox('Enter the full name of the file:')
If fs.FileExists(strFile) Then
MsgBox strFile & ' was found.'
Else
MsgBox 'File does not exist.'
End If
End Sub
2,GetFile : 返回一對(duì)象File
3,GetFileName : 返回帶路徑文件名
4,GetFileVersion : 返回文件版本
5,CopyFile : 復(fù)制文件
Sub CopyFile()
Dim fs As Object
Dim strFile As String
Dim strNewFile As String
strFile = 'c:hello.doc'
strNewFile = 'C:programs fileshello.doc'
Set fs = CreateObject('Scripting.filesystemobject')
fs.CopyFile strFile, strNewFile
MsgBox 'A copy of the specified file was created.'
Set fs = Nothing
End Sub
6,MoveFile : 移動(dòng)文件
7,DeleteFile : 刪除文件
Sub DeleteFile()
Dim fs As FileSystemObject
Set f s = New FileSystemObject
fs.DeleteFile 'C:programs fileshello.doc'
MsgBox 'The requested file was deleted.'
End Sub
8,DriveExists : 如果給定硬盤(pán)存在則返回TRUE
Function DriveExists(disk)
Dim fs As Object
Dim strMsg As String
Set fs = CreateObject('scripting.filesystemobject')
If fs.DriveExists(disk) Then
strMsg = 'drive [' & UCase(disk) & '] exists.'
Else
strMsg = 'drive [' & UCase(disk) & '] was not found.'
End If
DriveExists = strMsg
'run this function from the worksheet
'by enter in any cell the following: =driveexists('e:')
End Function
9,GetFolder : 返回對(duì)象Folder
Sub FilesInFolder()
Dim fs As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
i = 1
Set fs = CreateObject('scripting.filesystemobject')
Set objFolder = fs.GetFolder('C:')
Range('A1').Select
With Selection
For Each objFile In objFolder.Files
.Offset(i, 0).Value = objFile.Name
.Offset(i, 1).Value = objFile.Type
i = i + 1
Next objFile
End With
End Sub
10,GetSpecialFolder : 返回操作系統(tǒng)文件夾路徑
0-視窗文件夾
1-系統(tǒng)文件夾
2-臨時(shí)文件夾
Sub SpecialFolders()
Dim fs As Object
Dim strWindowsFolder As String
Dim strSystemFolder As String
Dim strTempFolder As String
Set fs = CreateObject('scripting.filesystemobject')
strWindowsFolder = fs.GetSpecialFolder(0)
strSystemFolder = fs.GetSpecialFolder(1)
strTempFolder = fs.GetSpecialFolder(2)
MsgBox strWindowsFolder & vbCrLf & _
strSystemFolder & vbCrLf & _
strTempFolder, vbInformation + vbOKOnly, _
'special folders'
End Sub
11,CreateFolder : 創(chuàng)建文件夾
Sub MakeNewFolder()
Dim fs, objFolder
Set fs = CreateObject('scripting.filesystemobject')
Set objFolder = fs.CreateFolder('c:testfolder')
MsgBox ' A new folder named “' & objFolder.Name & '” wascreated.'
End Sub
12,CopyFolder : 復(fù)制文件夾
Sub MakeFolderCopy()
Dim fs As FileSystemObject
Set fs = New FileSystemObject
If fs.FolderExists('c:testfolder') Then
fs.CopyFolder 'c:testfolder', 'c:finalfolder'
MsgBox 'The Folder was copied!'
End If
End Sub
13,MoveFolder : 移動(dòng)文件夾
14,DeleteFolder : 刪除文件夾
Sub RemoveFolder()
Dim fs As FileSystemObject
Set fs = New FileSystemObject
If fs.FolderExists('c:testfolder') Then
fs.DeleteFolder 'c:testfolder'
MsgBox 'The Folder was deleted.'
End If
End Sub
15,CreateTextFile : 創(chuàng)建文本文件
16,OpenTextFile : 打開(kāi)文本文件
Sub ReadTextFile()
Dim fs As Object
Dim objFile As Object
Dim strContent As String '定義文件內(nèi)容
Dim strFileName As String
Dim i As Integer
i = 1
strFileName = 'C:Windowswin.ini'
Set fs = CreateObject('scripting.filesystemobject')
Set objFile = fs.OpenTextFile(strFileName)
Do While Not objFile.AtEndOfStream
'******分行列出文件內(nèi)容******
strContent = objFile.ReadLine
Range('a' & i) = strContent
i = i + 1
'******讀取全部?jī)?nèi)容不分行******
' strContent = strContent & objFile.ReadLine & vbCrLf
Loop
objFile.Close
Set objFile = Nothing
End Sub
|
