vb

vb文件操作



'遇到错误，直接执行下一行。
On Error Resume Next


此程序目录 = App.Path
此程序文件名 = App.EXEName & ".exe"
此程序准确途径 = 此程序目录 & "\" & 此程序文件名

====================================================

' 打开任何文件包括网址
Dim ChengXu As String, F As String
ChengXu = "rundll32.exe url.dll,FileProtocolHandler"
F = "C:\1.doc" '修改此处：EXE，DOC html 网址 都行
Shell ChengXu & " " & Chr(34) & F & Chr(34), 1


’【打开无标题记事本】
Shell ("notepad")

’【新建文件】
Open "E:\1.txt" For Output As #1
Close #1

’【删除文件】
Kill("E:\1.txt")

’【删除文件全部内容】
open "文件路径和文件名"  for output as #1
write #1,""
close

’【复制文件】
FileCopy "C:\1.txt", "E:\1.txt "

’【移动文件】
Name "C:\1.txt" As "E:\1.txt"

’【改文件名】
Name "C:\1.txt" As "C:\2.txt"

’【判断文件是否存在】
If Dir("c:\1.txt") <> "" Then
MsgBox "存在"
Else
MsgBox "不存在"
End If


'【赋值文件夹内容到另一个文件夹】'文件夹不存在就自动创建
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "C:\1", C:\2






取文件和文件夹信息  

'取文件和文件夹信息

'取文件信息
Set fs = CreateObject("Scripting.Filesystemobject") '创建FileSystemObject 对象
Set fsa = fs.GetFile("C:\1.txt")       '取文件信息
Set fsb = fs.getfolder("C:\windows")   '取文件夹信息

MsgBox "文件创建时间：" & fsa.DateCreated
MsgBox "文件夹创建时间：" & fsb.DateCreated



'返回指定路径文件所对应的 File 对象
'DateCreated         属性返回该文件夹的创建日期和时间
'DateLastModified    属性返回最后一次修改该文件的日期和时间
'DateLastAccessed    属性返回最后一次访问该文件的日期和时间







文件操作函数
==============================================
Open 【"途径"】 For 【类型】 As 【#文件号】’打开文件
【类型】 【#文件号】，【内容】             ’进行操作
Close【#文件号】                          ’关闭文件
==============================================
列：
Open "E:\1.TXT" For Append As #1
Write #1,Hello
Close #1
翻译-------------------------------------------
打开 "E:\1.TXT" 设为  可在文件尾输入  文件号为1
写入 文件号为1  内容为"Hello"
关闭文件号为1的文件
=================================================
列2
Dim 内容
内容 = 123321【不用加""加就连""一起输入】
Open "E:\1.TXT" For Append As #1
Write #1, 内容
Close #1
=====================================================

1) 方式：指定文件的输入输出方式，可选,默认是Random,
a、 Output:指定顺序输出方式，将覆盖原有内容
b、 Input:指定顺序输入方式
c、 Append:指定顺序输出方式，在文件未尾追加内容
d、 Random:指定随机存取方式，也是默认方式，在Random方式时，
如果没有Access子句，则在执行Open语句时，
VB将按下列顺序打开文件：读/写、只读、只写
e、 指定二进制文件。
在这种方式下，可以用Get和Put语句对文件中任何字节位置
的信息进行读写。在Binary方式中，如果没有Access子句，
则打开文件的类型与Random方式相同


2)、存取类型：放在关键字Access之后，用来指定访问文件的类型。
可以是下列类型之一
a、 Read:打开只读文件
b、 Write:打开只写文件
c、 Read Write:打开读写文件。
这种类型只对随机文件、
二进制文件及用Append方式打开的文件有效


3)、锁定：该子句只在多用户或多进和环境中使用，
用来限制其他用户或其他进程对打开进行读写操作。
锁定类型包括：

a、 默认：如不指定锁定类型，则本进程可以多次打开文件进行读写；在文件打开期间，其他进程不能对该文件执行读写操作
b、 Lock Shared:任何机器上的任何进程都可以对该文件进行读写操作
c、 Lock Read:不允许其他进程读该 文件。只在没有其他Read存取类型的进程访问该文件时，才允许这种锁定。
d、 Lock Write:不允许其他进程写这个文件。只在没有其他Write存取类型的进程访问该文件时，才允许这种锁定
e、 Lock Read Write:不允许其他进程读写这个文件
如果不使用lock子句，则默认为Lock Read write

4)、文件号：由用户自行指定一个由1~511之间的整数，只要该文件号未被使用就合法；打开文件后，可以用该文件号进行读写等操作

5)、记录长度：是一个整型表达式。当选择该参量时，为随机存取文件设置记录长度。对于用随机访问方式打开的文件，该值是记录长度；对于顺序文件，该值是缓冲字符数。”记录长度”不能超过32767字节。对于二进制文件，将忽略Len子句



'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇
j="C:\UG中文途径打开方式.exe"
Shell j       '打开文件、文件夹，调用程序等
'◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇

VB 调用其它程序

Shell ("notepad")              '打开无标题记事本  
Shell "explorer.exe D:\"        '打开文件、文件夹’打开网页


Call Shell(App.Path & "\123.exe", vbNormalFocus)'调用exe
Call Shell(App.Path & "\123.bat", vbNormalFocus)'调用批处理

【App.Path 指此程序目】【此程序无论在那都行】
如：App.Path & "\123.txt"

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

'VB 调用其它程序 列
Private Sub Command1_Click()
fff=(App.Path & "\123.bat")

If Dir(strFileName) = "" Then GoTo ff '【判断文件不存在 就跳到ff:】
Call Shell(fff, vbNormalFocus)        '调用批处理

ff:
End





_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/