<%@ Page Language="VB" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.IO" %>
<script language="vbscript" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
  Dim myDirectory As Directory
  Directory.CreateDirectory("C:\Inetpub\newdirectory2")
End Sub
</script>