zoukankan      html  css  js  c++  java
  • 【VB】VB文件系统操作


    针对txt,Word,Execl都可以使用
    顺序文件:
    (1)创建:
        Open "D:\test.doc" For Output As #1 //创建
        Output 写入
        Append写入
        Input 读取
     (2)写入
            Print #1, "ASDFREWFGH"  //写入
            Write #1,"aaaaaaaaaa"  //写入
    (3)读取
       Input #2, inputdate
       Text1.Text = inputdate
       Line Input #2,inputdate
       Input(Number,#1)
    (4)关闭
        Close


    随机文件:
    (1)创建:
        Open "D:\test.doc" For Random  Access  Read As #1 Len=100 //创建
     (2)写入
            Put #1, 2,Rec  //写入
            用变量Rec来替代位置为2的记录  
    (3)读取
       Get #2,2, Rec
       将一个记录从#2 文件中复制到变量Rec中,2是要读取的记录号
    (4)关闭
        Close

    二进制文件
    (1)创建:
        Open "D:\test.doc" For Binary As #1 //创建
     (2)写入
            Put #1, 2,Rec  //写入
            用变量Rec来替代位置为2的记录  
    (3)读取
       Get #2,2, Rec
       将一个记录从#2 文件中复制到变量Rec中,2是要读取的记录号
    (4)关闭
        Close

    VB文件系统控件
    1.驱动器列表框(DriveListBox)  Drive1
    2.目录列表框(DirListBox)  Dir1
    3.文件列表框(FileListBox) File1

    设置对应关系过程:
    Private Sub Drive1_Change()
       Dir1.Path = Drive1.Drive
    End Sub

    Private Sub Dir1_Change()
       File1.Path = Dir1.Path
    End Sub

    VB  FSO对象模型
    应用 "Microsoft Scripting Runtime"
    Drive对象,Folder对象,File对象,TextStream对象
     创建FSO对象:
      (1)Dim MyFSO As New FileSystemObject
      (2)Set MyFSO = CreateObject("Scripting.FileSystemObject")

    Dim MyFSO As New FileSystemObject
    Dim MyFolder As Folder
    Dim MyFile As File
    Set MyFolder = MyFSO.CreateFolder("D:\Test") //创建文件夹
    Print "Create:"; MyFolder.Name

    Set MyFile = MyFSO.CreateTextFile("D:\Test1.txt", True)//创建文件


     
     



  • 相关阅读:
    CoreData学习-最好的一片文章
    Xcode4.6下添加百度地图ios版(BMapKit)详细教程(_BMKMapManager错误解决)
    NSSearchPathForDirectoriesInDomains用法
    编绎显示Unknown type name “CGFloat” 错误解决方法
    自动调整cell的高度
    sqlMapConfig约束
    PotPlayer左上角信息关闭
    松懈
    sql查询练习
    idea内容补充
  • 原文地址:https://www.cnblogs.com/cuishao1985/p/1530998.html
Copyright © 2011-2022 走看看