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)//创建文件


     
     



  • 相关阅读:
    临时文件服务器,配置共享文件夹
    封装扩展方法
    List.Insert
    VS 生成事件中xcopy失败
    创建型设计模式总结
    js提交图片转换为base64
    C#建造者模式
    echarts 立体柱
    k8s生产环境启用防火墙,要开启的端口
    一篇文章为你图解Kubernetes网络通信原理
  • 原文地址:https://www.cnblogs.com/cuishao1985/p/1530998.html
Copyright © 2011-2022 走看看