Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/core/open_close_dbase_connection.php on line 0

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 22

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 35

Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/scripts/get_ad_type_position.php on line 0

Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/scripts/load_ads.php on line 0

Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/scripts/sponsor_found.php on line 0

Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/scripts/load_links.php on line 0

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 161

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 164

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 167
vb codevisual basic code create virtual drive
projectus.freehost7.com:UG and PG level projects,mini projects and many more here ...



Program in Visual basic for webserver

Visual basic code Create Virtual Drive

Private Sub cmdNewDirectory_Click()

Dim NewFolder As String

NewFolder = InputBox("New Folder Name:", "Create new folder", "New Folder")

If Len(NewFolder) <> 0 Then

On Error GoTo FAILEDTOCREATEDIR

NewFolder = dirVirtual.Path & "\" & NewFolder

MkDir NewFolder

dirVirtual.Refresh

dirVirtual.Path = NewFolder

End If

Exit Sub

 

' Define the defaults.

mTotalRequests = 0

lblBootTime.Caption = Date & " " & Time

cLogFileName = App.Path & "\Connections.log"

' show the first page

HideAllPages

picPage(0).Visible = True

' update the virtual dirs interface

cmdEditVirtualDir.Enabled = False

cmdVirtualDirDelete.Enabled = False