Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.inpFileUp.PostedFile.FileName <> "" Then
Dim Folder_Name, File_Name, Complete_File_name As String
File_Name = Me.inpFileUp.PostedFile.FileName.ToString() Folder_Name = Left(MapPath(""), MapPath("").IndexOf("information")) + "newfile" If Directory.Exists(Folder_Name) = False Then
Directory.CreateDirectory(Folder_Name)
End If Complete_File_name = Folder_Name + "\m-1-1.txt" If File.Exists(Complete_File_name) = False Then
inpFileUp.PostedFile.SaveAs(Complete_File_name)
Else
Label1.Text = "have a same file, please change your file name!"
End If
End If Else
Label1.Text = "please select file what you want to upload"
End If
End Sub
If Me.inpFileUp.PostedFile.FileName <> "" Then
Dim Folder_Name, File_Name, Complete_File_name As String
File_Name = Me.inpFileUp.PostedFile.FileName.ToString() Folder_Name = Left(MapPath(""), MapPath("").IndexOf("information")) + "newfile" If Directory.Exists(Folder_Name) = False Then
Directory.CreateDirectory(Folder_Name)
End If Complete_File_name = Folder_Name + "\m-1-1.txt" If File.Exists(Complete_File_name) = False Then
inpFileUp.PostedFile.SaveAs(Complete_File_name)
Else
Label1.Text = "have a same file, please change your file name!"
End If
End If Else
Label1.Text = "please select file what you want to upload"
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货