כיצד אני מוחק סיפריה שלמה באמצעות - VB6.

להוסיף ב referens את התיקיה Microsoft Scripting Runtime

קוד:

 

Private Function CreateFolder(sFolder As String) As Boolean
On Error GoTo NoFolder
Dim Fso As New FileSystemObject
Dim ArrList() As String
Dim Path As String
Dim i As Integer
Chack_CreateFolder = False 
	If Fso.FolderExists(sFolder) Then
		CreateFolder = True
		Exit Function
	End If
 
	ArrList = Split(sFolder, "\")
	If Not IsNull(ArrList) Then
		For i = LBound(ArrList) To UBound(ArrList)
			Path = Path & ArrList(i)
			 If Not Fso.FolderExists(Path) Then
					 Fso.CreateFolder Path
			 End If
			 Path = Path & "\"
		Next i
	End If
 
	If Fso.FolderExists(sFolder) Then
		CreateFolder = True
	End If
 
NoFolder:
End Function
 
 
Private Function DeleteFolder(sFolder As String, bForce As Boolean)
On Error GoTo ERR
Dim Fso As New FileSystemObject
	If Fso.FolderExists(sFolder) Then
		Fso.DeleteFolder sFolder, bForce
		DeleteFolder = True
	End If
 
ERR:
	DeleteFolder = False
End Function
 
 

יש דרכים טיפה יותר קצרות...

קוד:

RmDir ("c:\aa")

להבא, תצרף את הפרט הזה שאתה מנסה לימחוק תיקיה עם דברים ביפנים.
וזה גם אפשרי, על ידי שימוש באובייקט. הנה פונקציה שעושה את זה:

קוד:

Private Sub DeleteDirs(pshe As String)
	Dim fs, fo

	Set fs = CreateObject("Scripting.FileSystemObject")

	Set fo = fs.GetFolder(pshe)

	fo.Delete

	Set fo = Nothing

	Set fs = Nothing
End Sub  

והינה דוגמא לקריאה לפונקציה:

קוד:

 DeleteDirs ("C:\aaa") 

ועדיין הקוד יותר יעיל ופשוט.