VBA文件操作

VBA可以添加应用vbs 脚本

Microsoft Scripting Runtime.

 

Sub

    Dim f as FileSystemObject

    Dim a as File

    Set a=f.GetFile(path)

    ....

可以访问a文件获得相关信息如隐藏，共享，可读写。

End sub

 

   dim c

   set c=f.CreateTextFile(path,true/false)

   创建文件，可读写

  set c=f.OpenTextFile(path, mode)

  打开文件，选择mode 可读写。

Sub readtxt()
'读取.txt 文档中

Dim fso, fread, str, strarry, linestr
Set fso = CreateObject("scripting.filesystemobject")
Set fread = fso.OpenTextFile("D:/info.txt", 1)
str = fread.readall
fread.Close
strarry = Split(str, vbCrLf)
For Each linestr In strarry
    If Trim(linestr) = "gq" Then
      Debug.Print linestr '
    End If
Next
Set fso = Nothing
End Sub

 

 

Sub CreateFolder()
'创建一个文件夹

Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.CreateFolder("D:/MyTest")
'获得文件夹句柄
'Set fldr=fso.GetFolder("D:/MyTest")

Debug.Print "Create folder: " & fldr.Name

End Sub

 

 

Sub ShowFolderList()
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("D:/alick")
Set fc = f.files
For Each f1 In fc
    Debug.Print f1.Name & "：类型-" & f1.Type
    Debug.Print "------------------------------" & vbCr
Next
End Sub