文件处理的一些资料收集
2004-10-25 16:30
369 查看
获取文件名
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not (aa.PostedFile Is Nothing) Then
Dim nam As String = aa.PostedFile.FileName
Dim i As Integer = nam.LastIndexOf(".")
Dim newext As String = nam.Substring(i)
newext = DateTime.Now.Year.ToString() + DateTime.Now.Month.ToString + DateTime.Now.Day.ToString + DateTime.Now.Hour.ToString + DateTime.Now.Minute.ToString + DateTime.Now.Second.ToString + newext
' Response.Write(newext)
Response.Write(aa.PostedFile.FileName)
Response.Write("<BR>")
aa.PostedFile.SaveAs(Server.MapPath("~/IMAGES/" & newext))
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not (aa.PostedFile Is Nothing) Then
Dim nam As String = aa.PostedFile.FileName
Dim i As Integer = nam.LastIndexOf(".")
Dim newext As String = nam.Substring(i)
newext = DateTime.Now.Year.ToString() + DateTime.Now.Month.ToString + DateTime.Now.Day.ToString + DateTime.Now.Hour.ToString + DateTime.Now.Minute.ToString + DateTime.Now.Second.ToString + newext
' Response.Write(newext)
Response.Write(aa.PostedFile.FileName)
Response.Write("<BR>")
aa.PostedFile.SaveAs(Server.MapPath("~/IMAGES/" & newext))
End If
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 【收集的资料】linux 文件操作的一些命令
- 个人收集的一些手机研发资料
- 个人收集的一些ubuntu资料
- db2diag.log的资料收集(DB2日志文件)
- 初学ASP.Net时在论坛收藏收集的一些资料备忘
- 共享收集的图像处理方面的一些资源和网站
- 共享收集的图像处理方面的一些资源和网站
- 【编程练习】收集的一些c++代码片，算法排序，读文件，写日志，快速求积分等等
- c++中关于文件操作资料收集（外文）
- node 学习的一些资料收集
- PHY芯片直连和加隔离变压器的设计原理的一些资料的收集。
- 文件复制的一些资料
- 一些安卓资料的收集
- 关于MP4文件格式的一些资料
- 代码质量、重构、软件设计相关的一些资料收集
- 最近收集的一些经典C语言资料
- AutoCAD 相关的在线多级同步的一些资料收集 beta
- 初学ASP.Net时在论坛收藏收集的一些资料备忘
- 资料收集 清理系统垃圾文件
- System Center的一些资料收集