VB 创建文件夹
来源:互联网 发布:3d max软件 编辑:程序博客网 时间:2024/05/12 08:06
新建
if dir( "c:\test ",vbDirectory)= " " then mkdir "c:\test "
或用fso
2007-06-10
用vb创建文件夹并检查其是否已存在
版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://yuna.blogbus.com/logs/5766796.html
方法一:
Public Function CheckDir(ByVal DirName As String) As Boolean
Dim ret As Integer
ret = SHFileExists(DirName)
If ret = 0 Then
CheckDir = False
Else
CheckDir = True
End If
End Function
If Dir("C:\Program Files\VIEWGOOD", vbDirectory) <> "" Then 'MsgBox "存在"
方法二:
1 新建一个工程在窗口上添加一个TextBox、一个CommandButton、一个Label
设置textbox的text属性为c:\test
设置label的caption属性为空
2 单击 工程(P)>>引用(N)
Microsoft Scripting Control 1.0
Microsoft Scripting Runtime
勾选以上两个选项,单击 确定 完成引用
3 双击Command1在Private Sub Command1_Click()
Dim fso As New FileSystemObject
和
End Sub
之间添加如下内容!
If fso.FolderExists(Text1.Text) Then
MsgBox "要创建的文件已存在!", vbOKOnly, "警告"
Else
fso.CreateFolder (Text1.Text)
Label1.Caption = Text1.Text + "创建成功!"
End If
至此,新建文件夹功能已经实现!
下边我们来实现判断文件夹是否为空!
1 在窗口中再添加一个CommandButton,双击CommandButton在:
Private Sub Command2_Click()
和
End Sub
之间写入如下代码
If Not fso.FolderExists(Text1.Text) Then
MsgBox "要判断的文件不存在!", vbOKOnly, "警告"
Else
Dim FolderSize As Long
FolderCount = fso.GetFolder(Text1.Text).SubFolders.Count
Debug.Print FolderCount
Label1.Caption = Str(FolderCount)
If FolderCount Then
MsgBox "此文件夹共有:" + Str(FolderCount) + "个文件\文件夹!", vbOKOnly, "警告"
Else
MsgBox "此文件夹为空!", vbOKOnly, "警告"
End If
End If
------------------------------------------测试用--------------------------
Private Function creat_folder()
ChDrive "D"
If Dir("D:\SPC-TO-WINDING", vbDirectory) <> "" Then
Else
MkDir "D:\SPC-TO-WINDING"
End If
ChDir "D:\SPC-TO-WINDING"
If Dir(M_NO, vbDirectory) <> "" Then
Else
MkDir M_NO
End If
ChDir "D:\SPC-TO-WINDING\" + M_NO
If Dir(P_NAME, vbDirectory) <> "" Then
Else
MkDir P_NAME
End If
ChDir "D:\SPC-TO-WINDING\" + M_NO + "\" + P_NAME
If Dir(P_NO, vbDirectory) <> "" Then
Else
MkDir P_NO
End If
ChDir "D:\SPC-TO-WINDING\" + M_NO + "\" + P_NAME + "\" + P_NO
If Dir(CStr(Date) + ".txt", vbDirectory) <> "" Then
Else
Call creat_txt(M_NO, P_NAME, P_NO)
End If
End Function
Private Function creat_txt(M_NO As String, P_NAME As String, P_NO As String)
Dim FILENAM As String
Dim msg As String
FILENAM = "D:\SPC-TO-WINDING\" + M_NO + "\" + P_NAME + "\" + P_NO + "\" & CStr(Format$(Now, "yyyy-mm-dd")) & ".txt"
'Kill FILENAM
If Dir(FILENAM) = "" Then
Open FILENAM For Output As #1
Else
Open FILENAM For Append As #1
End If
msg = "#;#;#;#;1;2;3"
Print #1, msg
msg = "MAX;#;#;#;100;55;70"
Print #1, msg
msg = "MIN;#;#;#;0;33.3;21.3"
Print #1, msg
Close #1
MsgBox "OK"
End Function
- 用VB创建文件夹
- vb 创建多级文件夹
- VB 创建文件夹
- [VB.NET源码]42_创建和删除文件夹
- vb 多级路径创建,读取文件或文件夹[vb类写法]
- vb.net 判断文件夹存在并创建文件夹(亲自实践)
- VB建立共享文件夹
- VB.net文件夹操作
- VB选择文件夹代码
- vb建立删除文件夹
- VB选择文件夹
- VB中使用API创建深层目录(建立多层文件夹)
- VB6.0基础 用VB创建一个以当前年月日命名的文件夹
- 创建文件夹
- 创建文件夹
- 创建文件夹
- 创建文件夹
- 创建文件夹
- 清华大学计算中心培训部-技术分享:java入门教程:数据类型举例
- ubuntu software center have problems,it cannot run.
- 收集写看过和要看的书单,好书阿!
- Could not execute JDBC batch update....
- DataTable或DataSet与JSON互转
- VB 创建文件夹
- 存储过程中循环的使用
- 百度贴吧10亿量级LAMP架构分享
- 清华大学计算中心培训部-技术分享:JVM版本与class版本的问题
- 我们领导写的一句话
- [JSF2.0学习笔记之二]eclipse3.7.1+jbosstools3.3环境搭建(4.0.0.Final的richfaces-showcase成功运行,同时纪念m2e/m2e-wtp安装史)
- C++中 虚函数 虚析构函数的作用
- 观察者设计模式
- 开发可以复用的构件和利用可以复用的构件进行开发