我要求做到每一个用户发布一次自己的产品图片都要建在 upimg 目录下的一个子目录里，且这个子目录不能重名

[parsely]

我要求做到每一个用户上传自己的产品图片都要放在 upimg 目录下的一个子目录里，且这个子目录要求先做校验不能重名，可以是这样： upimg/200381930021589/myuploadfile.gif 这该如何做呢？请大家帮个忙，或给个思路！！谢谢了

[saucer]

what not name the 子目录 with the user name? assume they all have unique user name?

[parsely]

我现在不明白的是在 .net 里，假如我要把 myuploadfile.gif 文件存在 upimg/200381930021589里，upimg目录是我事先创建好的，但是200381930021589这个目录是不存在的，那 .net 能自动创建此目录吗？俱体应该怎么做？谢谢了

[孟子E章]

用GUID绝对不会重名的

[saucer]

yes, as long as ASPNET account has enough permissions, you can use System.IO.Directory.CreateDirectory ("absolute-path-here")

[孟子E章]

System.Guid.NewGuid().ToString()

[parsely]

GUID 是什么意思啊，俱体怎么用啊？多谢

[fansun]

If loFile.Value = "" Then Exit Sub
Dim lstrFileName As String
Dim lstrFileNamePath As String
Dim lstrFileFolder As String
Dim fywname As String
' 如果上传目录为空，就使用" c:\ "作为缺省上传目录
' 获得上传到服务器的目录名称

lstrFileFolder = "c:\"
'lstrFileFolder="e:\"
Dim upto As String = uploadto.SelectedItem.Value
lstrFileFolder = Server.MapPath(upto)

' 获得文件名称
lstrFileName = loFile.PostedFile.FileName

' loFile.PostedFile.FileName 返回的是
' 通过文件对话框选择的文件名，这里面包含了文件的目录信息
lstrFileName = Path.GetFileName(lstrFileName)
' 去掉目录信息，返回文件名称
' 判断上传目录是否存在，不存在就建立
If (Not Directory.Exists(lstrFileFolder)) Then
Directory.CreateDirectory(lstrFileFolder)
End If
'上传文件到服务器
Dim filekzm = getkzm(lstrFileName)
fywname = Today.Year & Today.Month & Today.Day & Hour(Now) & Minute(Now) & Second(Now) & filekzm
lstrFileNamePath = lstrFileFolder & fywname



pics.Items.Add(upto & fywname)
AnswerMsg.Text = ""
Dim t
Dim temp
For t = 0 To pics.Items.Count - 1
temp = pics.Items(t).Text
Select Case getkzm(temp)
Case ".gif", ".jpg", ".tif", "JPG", "TIF"
AnswerMsg.Text = AnswerMsg.Text + "<img border=0 height=60px width=60px src=" & temp & ">" & "<a target=_blank href=" & temp & ">+</a>"

Case ".mp3", ".rm", ".ram", ".wmv"

t_musicurl.Text = temp
Case ".swf"
T_flashurl.Text = temp
Case Else

AnswerMsg.Text = AnswerMsg.Text + "<a target=_blank href=" & temp & ">未</a> "
End Select

Next



If R_video.Checked Then '正在添家电影

I_video.ImageUrl = upto & fywname

End If

If R_imgs.Checked Then
I_imgs.ImageUrl = upto & fywname
T_imgsurl.Text = upto & fywname
End If


''lstrFileNamePath = lstrFileFolder &

' 得到上传目录及文件名称
loFile.PostedFile.SaveAs(lstrFileNamePath)
' 获得并显示上传文件的属性

[chenee543216]

1.Agree with :saucer(思归, MS .NET MVP).

2.And u can Use the System.DataTime to Name ur user's 子目录 ,then they all have unique user name?

[foxxiap]

有一个问题,如果我要创建的目录的根目录也就是比如D:\我是没有读权限的,在ASP.NET里就没法在D:\TEMP\TEMP\下再创建目录,有什么办法?

[foxxiap]

补充一点,\TEMP\TEMP\下我权限足够

[DoHope]

学习。

[jackyhzzjcn]

你可以每次都创建这个目录，如果存在会抛出异常，跳过即可，也可以用System.IO来判断目录是否存在，不存在就创建，存在就条国咯。

[atian25]

DirectoryInfo.Exists 属性 判断不行吗？