|
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 : 返回一对象File
3,GetFileName : 返回带路径文件名
4,GetFileVersion : 返回文件版本
5,CopyFile : 复制文件
Sub CopyFile()
Dim fs As Object
Dim strFile As String
Dim strNewFile As String
strFile = "c:\hello.doc"
strNewFile = "C:\programs files\hello.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 : 移动文件
7,DeleteFile : 删除文件
Sub DeleteFile()
Dim fs As FileSystemObject
Set fs = New FileSystemObject
fs.DeleteFile "C:\programs files\hello.doc"
MsgBox "The requested file was deleted."
End Sub
8,DriveExists : 如果给定硬盘存在则返回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 : 返回对象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 : 返回操作系统文件夹路径
0-视窗文件夹
1-系统文件夹
2-临时文件夹
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 : 创建文件夹
Sub MakeNewFolder()
Dim fs, objFolder
Set fs = CreateObject("scripting.filesystemobject")
Set objFolder = fs.CreateFolder("c:\testfolder")
MsgBox " A new folder named “" & objFolder.Name & "” was created."
End Sub
12,CopyFolder : 复制文件夹
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 : 移动文件夹
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 : 创建文本文件
16,OpenTextFile : 打开文本文件
Sub ReadTextFile()
Dim fs As Object
Dim objFile As Object
Dim strContent As String '定义文件内容
Dim strFileName As String
Dim i As Integer
i = 1
strFileName = "C:\Windows\win.ini"
Set fs = CreateObject("scripting.filesystemobject")
Set objFile = fs.OpenTextFile(strFileName)
Do While Not objFile.AtEndOfStream
'******分行列出文件内容******
strContent = objFile.ReadLine
Range("a" & i) = strContent
i = i + 1
'******读取全部内容不分行******
' strContent = strContent & objFile.ReadLine & vbCrLf
Loop
objFile.Close
Set objFile = Nothing
End Sub |