随机文件

随机文件中每一个记录定长，并设置记录号，记录号从1开始。

存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置，然后加以写入或读出

初步认识

建立一个随机文件，文件中包含10个记录，每个记录由一个数(1至10)的平方、立方和开方根三个数值组成，以该数作为记录号

Private Type Numval
    Square As String
    Cube As String
    SqrRoot As String
End Type
Public nv As Numval

Sub dksjflsd()
    
    Open ThisWorkbook.Path & "\data5.txt" For Random As #1 Len = Len(nv)
    For i = 1 To 9
        nv.Square = CStr(i * i)
        nv.Cube = CStr(i * i * i)
        nv.SqrRoot = CStr(Sqr(i))
        Put #1,i,nv
    Next
    
    For i = 1 To 9
        Get #1,nv
        Debug.Print "第"; i; "号记录：",nv.Square,nv.Cube,nv.SqrRoot
    Next
    
    Close #1
End Sub

进行随机文件存取操作，大致包括以下一些内容：

(1)在打开文件进行随机访问之前，使用Type…End Type语句定义一个记录类型(如Numval)，该类型包括多个数据项，并与文件中记录应包括的域一致。

当通过Dim定义一个变量(如nv)为一个记录类型Numval时，该变量也就包含该类型的多个数据项，以后可通过nv.squre、nv.cube、nv.sqroot进行引用


(2)指定Random类型打开文件，记录定长，打开文件后，就可以存或取任一个记录

(3)分别通过Get和Put语句，并指定记录号进行读一个记录或存一个记录

一定要建立好记录与记录号之间的关系

1. 读语句
格式：Get #文件号［，记录号］，变量
功能：从一个随机文件中读出指定记录到一个变量


2. 写语句

格式：Put #文件号［，记录号］，变量
功能：把变量的值写入随机文件的记录中。

默认情况下，记录号编号为上一次使用的记录号加1

文件基本操作

可以在应用程序中很方便地对文件和文件夹进行操作

(1)建立文件夹语句(MrDir)：MkDir ［路径］文件夹名
示例：MkDir "D:\VB\Temp"


(2)改变当前文件夹语句(ChDir)：ChDir 路径
示例：ChDir "D:\VB\Dat"

(3)删除文件夹语句(RmDir)：RmDir ［路径］文件夹名
示例：RmDir "D:\VB\Temp"


(4)删除文件语句(Kill)：Kill ［路径］文件名
示例：Kill "D:\VB\datal.dat"
Kill "D:\VB\dat\*.*"

(5)拷贝文件语句(FileCopy)：

FileCopy[路径1]源文件[,[路径2]目标文件]
示例：FileCopy"C:\aaa.txt","D:\Temp\bbb.txt"

(6)文件的改名和移动：

Name原名As 新名
改名示例：Name "C:\aaa.txt" As"C:\ccc.txt"
移动示例：Name "C:\Aaa.txt" As"C:\Tmp\Aaa.txt"

(7)调用应用程序

格式：Shell(命令字符串[,窗口类型])

功能：调用指定应用程序

示例：

x= Shell("C:\Windows\Explorer.exe",1)

执行“C:\Windows”文件夹下的应用程序Explorer.exe,并显示该程序窗口(例8.12)

MkDir - 建立文件夹

Sub dfjkld()
    For i = 1 To 20
        MkDir "C:\Users\McDelfino\Desktop\练习\文件夹 - " & Format(i,"00")     '注意Format改变格式
    Next
End Sub



RmDir - 删除文件夹

Sub dfksdlf()
    For i = 1 To 20 Step 2
        RmDir "C:\Users\McDelfino\Desktop\练习\文件夹 - " & Format(i,"00")
    Next
End Sub



Kill - 删除文件
 

Sub dfksdlf()
    Kill "C:\Users\McDelfino\Desktop\练习\1.txt"
End Sub
删除1.txt文件！


Sub dfksdlf()
    Kill "C:\Users\McDelfino\Desktop\练习\*.*"
End Sub
删除所有文件，有扩展名的文件！


FileCopy - 拷贝文件
 
拷贝文件，同时可以改变文件的文件名~



Sub djklfj()
    FileCopy "C:\Users\McDelfino\Desktop\练习\文件夹 - 01\源文件.xlsx","C:\Users\McDelfino\Desktop\练习\文件夹 - 02\目标文件.xlsx"
End Sub





Name 原名 As 新名 - 文件改名&文件移动
 
文件改名



Sub dkjflsdjfl()
    For i = 1 To 10
        Name "C:\Users\McDelfino\Desktop\练习\工作簿 - " & i & ".xlsx" As "C:\Users\McDelfino\Desktop\练习\工作簿 - " & Format(i,"00") & ".xlsx"
    Next
End Sub





文件移动

Sub dkjflsdjfl()
    For i = 1 To 10
        Name "C:\Users\McDelfino\Desktop\练习\工作簿 - " & Format(i,"00") & ".xlsx" As "C:\Users\McDelfino\Desktop\工作簿 - " & Format(i,"00") & ".xlsx"
    Next
End Sub



Dir - 遍历文件
详见：http://www.jb51.cc/article/p-cbdpvuol-ny.html


批量修改文件名

Sub jdslfjl()
    Dim MyFile As String
    Dim count As Integer
    count = 1
    MyFile = Dir("C:\Users\McDelfino\Desktop\练习\" & "*.xlsx")
    Name "C:\Users\McDelfino\Desktop\练习\" & MyFile As "C:\Users\McDelfino\Desktop\练习\" & Format(1,"00") & ".xlsx"
    Do While MyFile <> ""
        If MyFile = "" Then Exit Do
        count = count + 1
        MyFile = Dir
        Name "C:\Users\McDelfino\Desktop\练习\" & MyFile As "C:\Users\McDelfino\Desktop\练习\" & Format(count,"00") & ".xlsx"
    Loop
End Sub