新建文件夹vb
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时,如果文件不存在,责创建一个文件,希望对你有用