Kök Dizin ve Slash örneği

sWaGg€r

27.06.2008 20:27:32

Private Sub mndizinaç_Click()
On Local Error GoTo iptal
Dim ydizin, slaş
ydizin = InputBox("Dizin Adını Giriniz", "Dizin Aç")
slaş = InStr(Dir1.Path, "\") ' dizindeki ilk slaşın konumu
If slaş = 3 And Len(Dir1.Path) > 3 Then 'kök dizin veya ana dizin ise
ydizin = Dir1.Path & "\" & ydizin 'dizin içinde açılırsa
Else
ydizin = Dir1.Path & ydizin 'kök dizinde açılırsa
End If
MkDir ydizin
Dir1.Path = ydizin
Dir1.Refresh
Exit Sub
iptal:
MsgBox err & "-" & Error
End Sub