2
YENİ dosya ve klasörler oluşturma
Sub Test() Dim myDir As String Dim Folder1 As String StartDate = DateValue("2-Nov-2014") NumberOfDays = 1 For N = 0 To NumberOfDays - 1 Folder1 = UCase(Format(StartDate + N, "MMM YYYY")) Folder2 = Format(StartDate + N, "DD MMM YYYY") If Dir("C:\GRANDVARIATIONS\FILES\" & Folder1, vbDirectory) = "" Then MkDir "C:\GRANDVARIATIONS\FILES\" & …