Private Sub CreatFolder()
' the line below gives error like Conversion from string "C:\inetpub\wwwroot\Createfolders" to type 'Integer' is not valid
Dim directoryPath As String = Path.GetInvalidpathChars(Server.MapPath("..\Cre_Folders\File\") & txtFolderName.Text.Trim())
If Not Directory.Exists(directoryPath) Then
Directory.CreateDirectory(directoryPath)
lblsuccess.Visible = True
'lblmsg.Visible = False
lblValidName.Visible = False
lblDelete.Visible = False
lblerr.Visible = False
Else
ClientScript.RegisterStartupScript(Me.[GetType](), "alert", "alert('Folder already existed.');", True)
'lblmsg.Text = "Directory Already Exists..."
lblValidName.Visible = False
lblDelete.Visible = False
lblsuccess.Visible = False
lblerr.Visible = False
End If
Call Treeview()
End Sub
问问题
962 次