Sorgu için arama sonuçları: createfolder

...Dim c On Error Resume Next Set c = CreateObject("Scripting.FileSystemObject") For f = 2 To 11 'B-L kolonlari arasi c.CreateFolder "C:\" & Cells(2, f) '2. satırda yazan ana klasorleri C: nin altina acar son = Cells(65000, f).End(3).Row For t = 3 To son...

...= Cells(3, 6).Value & ".xlsm" klasorara = nesne.FolderExists(masaustuyolu & "\" & "Siparişler") If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & "Siparişler" Else End If Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=masaustuyolu & "\" & "Siparişler" &...

Çok teşekkür ederim

...CreateObject("Scripting.FileSystemObject") ds = "C:\İşletme Programı\" kontrol = fso.FolderExists(ds) If kontrol = False Then fso.CreateFolder "C:\İşletme Programı" End If dn = Format(Sheets("ANASAYFA").Range("F2").Text, "mmmm yyyy") & " Faaliyet Raporu.xlsx" ReDim dizi(15) a = 0 For...

Merhaba, İnceleyiniz. https://www.excel.web.tr/search/265253/?q=mkdir&o=date https://www.excel.web.tr/search/265254/?q=createfolder&o=date

...& " - " & Format(Now, "yyyy-mm-dd") Application.Dialogs(xlDialogPrint).Show kontrol = ds.FolderExists(yol) If kontrol <> True Then ds.CreateFolder yol End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _ & "\" & isim & ".pdf", Quality:=xlQualityStandard, _...

...Set KLS = CreateObject("Scripting.FileSystemObject") Set S1 = Sheets("Bordro") MASAÜSTÜ = MASA.SpecialFolders.Item("Desktop") KLS.createfolder MASAÜSTÜ & "\" & S1.Range("AA11").Text For SY = 1 To 65 S1.Range("B5") = SY S1.ExportAsFixedFormat xlTypePDF, MASAÜSTÜ & "\" & S1.Range("AA11").Text &...

...Set KLS = CreateObject("Scripting.FileSystemObject") Set S1 = Sheets("Bordro") MASAÜSTÜ = MASA.SpecialFolders.Item("Desktop") KLS.createfolder MASAÜSTÜ & "\" & S1.Range("AA11").Text For SY = 1 To 65 S1.Range("B5") = SY S1.ExportAsFixedFormat xlTypePDF, MASAÜSTÜ & "\" & S1.Range("AA11").Text &...

...yol = masaustuyolu & "\" & Format(Date, "yyyy") & " Üretim Raporları" If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol altklas = Format(Date, "dd.mm.yyyy") & " " & " - " & [B11] yol = yol & "\" & altklas If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol...

...2).Text klasorara = nesne.FolderExists(Yol & "\" & klasoradi) If klasorara = False Then nesne.CreateFolder Yol & "\" & klasoradi ActiveSheet.Copy With ActiveWorkbook ActiveWorkbook.SaveAs Filename:=Yol & "\" & klasoradi & "\" & dosyaadi & ".xlsx", FileFormat:=xlOpenXMLWorkbook...

...ds = CreateObject("Scripting.FileSystemObject") yol = ThisWorkbook.Path & "\" If ds.FolderExists(yol & "ARAÇ KAYITLARI") = False Then ds.CreateFolder yol & "ARAÇ KAYITLARI" If ds.FileExists(ThisWorkbook.Path & "\ARAÇ KAYITLARI\" & ad & ".xlsx") = True Then MsgBox ad & " Dosyası var sayfa...

...MsgBox " Dosyanız C:\ebyn\sablon\ Klasörü altına eklenmiştir." End Sub Sub Klasor_Olustur() Dim ds As Object, kls As String kls = "sablon" Set ds = CreateObject("Scripting.FileSystemObject") If ds.FolderExists("C:\ebyn\" & kls) = False Then ds.CreateFolder "C:\ebyn\" & kls...

...MsgBox " Dosyanız C:\sablon\ Klasörü altına eklenmiştir." End Sub Sub Klasor_Olustur() Dim ds As Object, kls As String kls = "sablon" Set ds = CreateObject("Scripting.FileSystemObject") If ds.FolderExists("C:\" & kls) = False Then ds.CreateFolder "C:\" & kls End Sub

...Klasörü altına eklenmiştir." End Sub Sub Klasor_Olustur() Dim ds, _ kls As String kls = "sablon" Set ds = CreateObject("Scripting.FileSystemObject") If ds.FolderExists("C:\" & kls) = False Then ds.CreateFolder "C:\" & kls End Sub Hata sayfası

...Takip\Vardiya Yedek\" & Format(Date, "dd.mm.yyyy") & " - " & "Üretim Raporu" If FSO.FolderExists(Yol) = False Then FSO.CreateFolder Yol Else Set Klasor = FSO.GetFolder(Yol) For Each Dosya In Klasor.Files If Left(Dosya.Name, 1) <> "~"...

...Application.DisplayAlerts = False If ds.FolderExists(Yol) Then ds.DeleteFolder Yol If Not ds.FolderExists(Yol) Then ds.CreateFolder Yol If dc.Count > 0 Then sh = dc.keys For j = 0 To dc.Count - 1 ReDim b(1 To UBound(a), 1 To 13)...

Ömer bey ilginiz için teşekkür ederim ilk paylaştığınız kod ile ilgili hataları çözüp kendi makrom içinde call komutu ile çağırarak kullanmayı deneyeceğim her şey için teşekkür ederim , saygılarımla...

...xFile.Name = xFileOldName Then If xFSObje.folderexists(xFolderPath & "\" & xFolderName) = False Then xFSObje.createfolder (xFolderPath & "\" & xFolderName) End If xFSObje.movefile xFile.Path, xFolderPath & "\" & xFolderName & "\" & NewName...

Merhaba Sayın yunus788 Gümüş üye olduğum için paylaştığınız dosyayı indiremedim. Fakat verdiğiniz kodları denedim, istediğim şey tam olarak oldu. İlginiz için teşekkür ederim. Sayın yunus788, acaba bu işlemin tam tersini yapacak kodlarımız da var mıdır? Yani klasörün içinde bulunan...

İlginiz için çok teşekkürler. Denemeler yapıp neticeyi arz edeceğim. Sağolun