Dim fso, f, fc, nf, yol
yol = "c:\" ' klasörü nereye oluşturalim
Set fso = CreateObject
("Scripting.FileSystemObject")
Set f = fso.GetFolder(yol)
Set fc = f.SubFolders Set nf = fc.Add("yeni_klasor") 'oluşturmak
istediğiniz Klasör adını yazmanız yeterli
yol = "c:\" ' klasörü nereye oluşturalim
Set fso = CreateObject
("Scripting.FileSystemObject")
Set f = fso.GetFolder(yol)
Set fc = f.SubFolders Set nf = fc.Add("yeni_klasor") 'oluşturmak
istediğiniz Klasör adını yazmanız yeterli


