创建目录和新建文本文件

最新推荐文章于 2022-03-14 10:16:31 发布

123liuhh

最新推荐文章于 2022-03-14 10:16:31 发布

阅读量1.1k

点赞数

分类专栏： VB 及其它编程文章标签： function string input command output c

本文链接：https://blog.youkuaiyun.com/123liuhh/article/details/3867667

版权

VB 及其它编程专栏收录该内容

4 篇文章

订阅专栏

这篇博客介绍了如何在VBA中创建多级目录，包括使用`MakeSureDirectoryPathExists`函数创建指定路径的目录，并提供了创建和操作文本文件的示例，如追加写入、读取文件以及检查文件是否存在。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、以下代码可以建立多级文件夹：
Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
'创建指定的目录(可以是多级目录)

Private Function CreateDirectory(ByVal sDirectory As String) As Boolean
'创建指定的目录(可以是多级目录)，sDirectory:要创建的文件夹
On Error GoTo ErrHandle
Dim lngResult As Long
sDirectory = checkpath(sDirectory)
lngResult = MakeSureDirectoryPathExists(sDirectory)
CreateDirectory = IIf(lngResult = 0, False, True)
ErrHandle:
If Err <> 0 Then
CreateDirectory = False
End If
End Function

Private Function checkpath(ByVal sPath As String) As String
If Right$(sPath, 1) = "/" Then
checkpath = sPath
Else
checkpath = sPath & "/"
End If
End Function

Private Sub Command1_Click()
CreateDirectory "c:/abc/def/ghi"
End Sub

2、主要是文件的“打开”、“读取”、“保存”，多练习一下。

创建新文件和在文件增加
Open "D:/xxx.txt for append As #1
Print #1,"1234"
Print #1,"ABCD"
Close #1
'append 是以追加的方式操作的还可以换成input,output等等比如

文件已经存在时:
Open "D:/xxx.txt for input As #1
do while not eof(1)
input #1,a
...
loop
Close #1
'上面的是打开和读取

3、一个判断
If Dir("c:/test.txt") = "" Then
MsgBox "指定文件不存在"
Else
MsgBox "指定文件存在"
End If