CREATE A DIRECTORY ON THE FLOPPY DISK USING FSO. T - Visual Basic , VB.NET

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

CREATE A DIRECTORY ON THE FLOPPY DISK USING FSO. T...
Author: Louis Delongchamp
E-mail: Click to e-mail author
Website: http://www.cyberbeach.net/~loudelon
Submitted: 8/2/2001
Version: VB6
Compatibility: VB6
Category: File Manipulation
Views: 7450
CREATE A DIRECTORY ON THE FLOPPY DISK USING FSO. This is just a line of code to create a directory on the floppy disk using FSO.
Declarations:
Start a new VB6 project and place this code in the form. There MUST be a floppy disk in the A: drive.
Code:
Private Sub Form_Load() FloppyDirectory End End Sub Private Sub FloppyDirectory() Dim fsO As Object Dim WkDir As String WkDir = "MyDirectory" Set fsO = CreateObject("Scripting.filesystemObject") ' Check if the directory already exists If Dir$("A:" & WkDir, vbDirectory) = "" Then ' Seeing as it does not exist, create it! fsO.createfolder ("A:\" & WkDir) End If Set fsO = Nothing End Sub