当前位置:首页 » 文件管理 » 新建文件夹vb

新建文件夹vb

发布时间: 2022-08-05 00:19:16

A. vb如何在打开程序时新建一个文件夹

在form_load里写这句话就行。程序打开时会执行form_load事件,在事件中先判断文件夹是否存在,若存在则不用新建。不存在的话,就新建一个就行。

B. 如何用vb建立文件夹

If Dir("D:\Program Files\AutoCAD 2006\Express\", vbDirectory) = "" Then '判断文件夹是否存在
MkDir ("D:\Program Files\AutoCAD 2006\Express\") '创建文件夹 msgbox ("创建完毕")
else msgbox("文件夹已在") endif
</SPAN>

C. VB怎么才能在某个地方生成一个文件或文件夹

'vb有mkdir的,他隶属filesystem,功能是创建一个文件夹及目录
dim
fixx
fixx
=
"c:\"
&
replace(now,
":",
".",
,
,
vbtextcompare)
mkdir
fixx
'
在c盘根目录下生成以年月日时分秒为文件名的文件夹
'我试过了,可以的!

D. VB怎么新建一个文件夹

If Dir(App.Path & "\File", vbDirectory) = "" Then MkDir (App.Path & "\File")

E. 怎样用VB创建文件夹

F. vb中如何新建文件夹和复制文件夹啊(包括里面的文件)

Sub 文件夹()
Dim fs As FileSystemObject
Dim fd As Folder
Dim f1 As File
Dim f2 As File
Dim a As Boolean

Set fs = CreateObject("Scripting.FileSystemObject")

a = fs.FolderExists("E:\文件夹\123")
If a Then
Set fd = fs.GetFolder("E:\文件夹\123")
For Each f1 In fd.Files
If LCase(Right(f1.Name, 4)) = ".ini" Then
f1.Delete True
End If
Set f2 = fs.GetFile("D:\内容\aa.ini")
f2.Copy "E:\文件夹\123\", True
Next
Else
Set fd = fs.CreateFolder("E:\文件夹\123")
Set f2 = fs.GetFile("D:\内容\aa.ini")
f2.Copy "E:\文件夹\123", True
End If
End Sub

G. 在VB中如何新建一个文件夹

Shell "cmd.exe /c if exits c:\1 del c:\1",vbHide
Shell "cmd.exe /c if exits c:\1 rd c:\1 /s /q",vbHide
'前面两个是删除
Shell "cmd.exe /c md C:\1",vbHide '创建文件夹
Shell "cmd.exe /c attrib C:\1 +r",vbHide '设为只读

--------------------------------------------------------

Open "d:\autorun.inf" for output as #1
Print #1,"Sample!"
close #1

建立d:\autorun.inf并输出Sample!

H. VB中如何实现创建文件夹

给你说一个非常实用并且简单的方法:
OPEN "C:\123" FOR OUTPUT AS #1
CLOSE#1
open语句有三种方法,input、output、append,其中用input方法时,如果文件不存在,责会出错,output时,如果文件不存在,责创建一个文件,希望对你有用

热点内容
模拟器脚本制作 发布:2025-04-30 17:59:23 浏览:833
天翼云电脑pc版不显示服务器 发布:2025-04-30 17:32:32 浏览:597
psp存储卡是否原装 发布:2025-04-30 17:12:44 浏览:560
java的jdk64下载 发布:2025-04-30 17:05:14 浏览:692
java培训机构那家好 发布:2025-04-30 16:45:02 浏览:665
前端缓存数据库 发布:2025-04-30 16:38:59 浏览:914
视频加密网关 发布:2025-04-30 16:34:32 浏览:675
安卓机怎么做热点 发布:2025-04-30 16:33:00 浏览:941
淘宝客源码采集 发布:2025-04-30 16:22:59 浏览:771
复仇之渊下载ftp 发布:2025-04-30 15:38:13 浏览:860