'Listing 29.1 Beztroski sposb kodowania

Function function1 (ByVal var1) As Integer
Dim x, y As Integer
Dim z As String
If Right$( var1, 1) <> "\" Then
var1 = var1 + "\"
End If
On Error Resume Next
ChDrive var1
If Err <> 0 Then GoTo label1
ChDir "\"
x = 3
y = inStr(4, var1, "\")
Do While y <> 0
z = Mid$( var1, x + 1, y - x - 1)
Err = 0
MkDir z
If Err <> 0 And Err <> 75 Then GoTo label1
Err = 0
ChDir z
If Err <> 0 Then Goto label1
x = y
y = InStr(x + 1, var1, "\")
Loop
function1 = True
Exit Function
label1:
If Err = 71 Then
MsgBox "Please insert Disk in Drive"
Resume
End If
function1 = False
End Function
