Я хотел бы спросить, если что-то не так с этим кодом? Потому что он не создает папку, если папка не существует.
Dim folderPath As String = Server.MapPath("~/Reading/")
If Not System.IO.Directory.Exists(folderPath) Then
System.IO.Directory.CreateDirectory(folderPath)
End If