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