VB中如何实现创建新的文件夹

分类: 电脑/网络 >>程序设计 >>其他编程语言

解析:

Option Explicit

Dim fso As New FileSystemObject

Dim newfolder As Folder

上面在通用中写入

下面建立一个按钮打入代码 '后面是解释

Private Sub Command1_Click()

Set newfolder = fso.GetFolder(InputBox("文件要建立在哪个盘？如c:")) '这边也可以用inputbox("要建立的文件夹！")

'创建文件夹

If (fso.FolderExists("c:\windows") = True) Then 'c盘windows是都有的所以用c:\windows

fso.CreateFolder (InputBox("文件的全url？如d:\esinc"))

MsgBox ("新建成功！")

Else

MsgBox ("新建不成功!")

End If

Set newfolder = Nothing

End Sub

打开文件

（1）以写入方式打开(可以创建文件)

Private

Sub

Command1_Click()

Open

"F:\

VB.ZG1"

For

Output

As

#1

Print

#1,

Text1

vbCr

Text2’写入TEXT1，下一行写入TEXT2

Close

#1

End

Sub

（2）以读取方式打开

Private

Sub

Command2_Click()

Dim

s

As

String

Dim

d

As

String

Open

"F:\

VB.ZG1"

For

Input

As

#1

Line

Input

#1,

s’让s=文件和第一行

Line

Input

#1,

d’让d=文件和第二行

Close

#1

End

Sub

（3）以在文件末尾追加数据方式打开

Private

Sub

Command3_Click()

Open

"F:\

VB.ZG1"

For

append

As

#1

Print

#1,

Text1

vbCr

Text2’在文件末尾写入TEXT1，下一行写入TEXT2

Close

#1

End

Sub

用StrConv函数可以将文件的控制字符串数据和Unicode码之间进行转换，从而达到打开文件的目的。可打开任意大小文件。此法笔者曾有一篇文章谈及，这里再给一个简单例子

Private

Sub

Command1_Click()

Open

fd.txt

For

Input

As

#1

Text1=

StrConv(InputB$(LOF(1),

1),

vbUnicode)

Close

#1

End

Sub

EOF函数

返回一个Integer，它包含Boolean值True，表明已经到达为Random或顺序Input打开的文件的结尾。

语法

EOF(filenumber)

必要的filenumber参数是一个Integer，包含任何有效的文件号。

说明

使用EOF是为了避免因试图在文件结尾处进行输入而产生的错误。

直到到达文件的结尾，EOF

函数都返回

False。对于为访问Random或Binary而打开的文件，直到最后一次执行的Get语句无法读出完整的记录时，EOF都返回False。

对于为访问

Binary

而打开的文件，在EOF函数返回True

之前，试图使用Input函数读出整个文件的任何尝试都会导致错误发生。在用Input函数读出二进制文件时，要用LOF和Loc函数来替换EOF函数，或者将Get函数与EO函数配合使用。对于为Output打开的文件EOF总是返回True。

---