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

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

问题描述:

我想做个多用户相册BLOG系统

语言我只会ASP

用户上传的照片我想把他们分别存在/upload/用户名的文件夹里

也就是说每个用户上传的图片都在他自己的文件夹里

现在我的思路就是用户申请注册的时候，可不可以用asp语句在upload中建立一个以用户名命名的文件夹？

要有相关的代码语句

谢谢

解析:

使用FSO新建文件夹

Dim objFSO

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

path = Server.MapPath("\upload\user")

If objFSO.FolderExists(path) Then

Response.Write path&"文件夹已经存在！"

Else

objFSO.CreateFolder(path)

Response.Write "新建文件夹的位置为"&path

End If

Set objFSO = Nothing

花衣燕子这下出名了

---