Jag försöker skapa en mapp på servern vars nanm kommer från en textbox. vidare så försöker jag ladda en fil i samma mapp.

Filen laddas upp men bara till root-katalogen. mappaen skapas inte.

Nån som vet varför??

Koden:

Public Sub Upload(ByVal s As Object, ByVal e As EventArgs)

If Not (UploadFile.PostedFile Is Nothing) Then

Dim FilePath As String = UploadFile.PostedFile.FileName
Dim FileSize As Long = UploadFile.PostedFile.ContentLength
Dim FileName As String = System.IO.Path.GetFileName(FilePath)
Dim MyConnection As New SqlConnection(ConfigurationManager.ConnectionStrings("WebbhotellConnectionString").ConnectionString)
Dim InsertCommand As String = ("INSERT INTO aspnet_Uppgifer VALUES (@Uppgift1, @Uppgift2, @Uppgift3)")
Dim MyCommand As SqlCommand = New SqlCommand(InsertCommand, MyConnection)


'Skapar mappen men namnet från textboxen
Dim fs = Server.CreateObject("Scripting.FileSystemObject")

Dim dinvariabel = Server.MapPath(Request.Form("txtUppgift.Text"))

' Kollar om mappen redan finns
If My.Computer.FileSystem.DirectoryExists(dinvariabel) = False Then
fs.CreateFolder(dinvariabel)
End If


Try
' spara filen i angivna mappen på servern
UploadFile.PostedFile.SaveAs(Server.MapPath(Request.Form("CreateFolder")) & "\" & FileName)

Response.Write(dinvariabel & "\" & FileName & "<br>")
Response.Write("Filens storlek: " & FileSize & "b")
MyConnection.Open()
MyCommand.Parameters.Add("@Uppgift1", SqlDbType.NVarChar, 50).Value = txtNr1.Text
MyCommand.Parameters.Add("@Uppgift2", SqlDbType.NVarChar, 50).Value = txtNr2.Text
MyCommand.Parameters.Add("@Uppgift3", SqlDbType.NVarChar, 256).Value = (Server.MapPath(Request.Form("CreateFolder")) & "\" & FileName)

MyCommand.ExecuteNonQuery()
MyConnection.Close()

Catch Exp As Exception

Response.Write("Ett fel uppstod<br>" & Exp.Message)

End Try

Else

Response.Write("Ingen fil skickades.")

End If

End Sub

Varför inte köra asp.net 2.0 hela vägen?

<code>
...
Dim dinvariabel = My.Request.MapPath(txtUppgift.Text)

' Kollar om mappen redan finns
If Not My.Computer.FileSystem.DirectoryExists(dinvariabel) Then
My.Computer.FileSystem.CreateDirectory(dinvariabel)
End If


Try
' spara filen i angivna mappen på servern
uploadfile.PostedFile.SaveAs(dinvariabel & "\" & FileName)
...
</code>

Tackar så mycket för hjälpen!!! :-)