Sorgu için arama sonuçları: createfolder

...For Each dosya In dosyalar kl = Split(dosya.Name, "." & nesne.GetExtensionName(dosya.Name))(0) If nesne.FolderExists(yol & "\" & kl) = False Then nesne.CreateFolder yol & "\" & kl yer = yol & "\" & kl & "\" nesne.moveFile Source:=dosya, Destination:=yer Next MsgBox "Islem tamam" End Sub

Emeğinize sağlık, teşekkür ederim.

...YedekKlasoruOlustur Yol = "C:\YEDEKLER\" & Format(Date, "dd.mm.yyyy") & "\" 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) <> "~"...

...ThisWorkbook.Save Yol = "C:\YEDEKLER" 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) <> "~" Then Tarih =...

...Set oFso = CreateObject("Scripting.FileSystemObject") If NOT oFso.FolderExists(DestDir) Then ' Create New Folder set NewFolder=oFso.CreateFolder(FolderName) End If Set FSO = CreateObject("Scripting.FileSystemObject") Say = 1 Set objFile = FSO.CreateTextFile(DestDir &"\" &...

...If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\YEDEK") Then CreateObject("Scripting.FileSystemObject").CreateFolder ("C:\YEDEK") End If Sheets("Proforma").Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\YEDEK\" & ActiveSheet.Name & "_" &...

...As Boolean) Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("D:\Asyo Yedek") = False Then ds.CreateFolder "D:\Asyo Yedek" End If If ThisWorkbook.Path = "D:\Asyo Yedek" Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation +...

...Sub Klasor_Olustur() Dim ds yer = "D:\": kls = "Spacebar" Set ds = CreateObject("Scripting.FileSystemObject") If ds.FolderExists(yer & kls) Then ' MsgBox "Klasör mevcut" Else ds.CreateFolder yer & kls ' MsgBox "Klasör oluşturuldu." End If End Sub

...& " " & [G2] dosyaadi = [G2] & " Üretim Raporu " klasorara = nesne.FolderExists(server & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder server & "\" & AyAdi ActiveSheet.Range("$B$2:$U$97").Copy With ActiveWorkbook .SaveAs Filename:=server & "\" & AyAdi & "\" & dosyaadi & ".xls"...

..." & [J8] dosyaadi = [J8] & " Üretim Raporu " klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AD$81").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" &...

...= False: .ScreenUpdating = False End With End Sub Sub Klasor_Olustur() Dim ds yer = "D:\": kls = Sheets("menü").[G1] & " Dosyası" Set ds = CreateObject("Scripting.FileSystemObject") If ds.FolderExists(yer & kls) Then Else ds.CreateFolder yer & kls End If End Sub

...vbDirectory) <> "" Then yol = "F:\Kemal" Else yol = "C:\Kemal" End If k = kls.FolderExists(yol) If k = False Then kls.CreateFolder yol End If '''''''' ChDir yol ActiveWorkbook.SaveAs Filename:="F:\Kemal\" & dosya_adi & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled...

...yol As String Set kls = CreateObject("Scripting.FileSystemObject") yol = "F:\Kemal" k = kls.FolderExists(yol) If k = False Then kls.CreateFolder yol End If '''''''' ChDir "F:\Kemal" ActiveWorkbook.SaveAs Filename:="F:\Kemal\" & dosya_adi & ".xlsm", FileFormat:= _...

merhaba hocam benimde böyle birşeye ihtiyacım var Ancak Yinede uygulamadan özet geçeyim istedim. Örneğin personelin iznini yazıyorum işlem bitti YAZDIR (Makrolu) butonuna bastığımda hem yazdırsın hemde bir hücre belirleyeceğim hücrede bulunan personel ismi vb. bilgilerle ile birlikte izin...

Yedekleme kodları için teşekkürler

...ThisWorkbook.Save Yol = "C:\YEDEKLER" 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) <> "~" Then Tarih =...

...As Boolean) Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("D:\YEDEKLER") = False Then ds.CreateFolder "D:\YEDEKLER" End If If ThisWorkbook.Path = "D:\YEDEKLER" Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musun?", vbInformation + vbYesNo...

...MsgBox "Klasör İsmi: " & sor & Chr(10) & "Yok. Oluşturuluyor...", vbCritical CreateObject("scripting.filesystemobject").createfolder (klasoryolu) End If For i = 1 To 13 Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, _...

...Raporları" dosyaadi = [G2] & " " & [G4] klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$2:$R$96").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & AyAdi &...

Bu makroyu denermisiniz Sub AKTİF_DOSYAYI_YEDEKLE() Dim DosyaSistemi As Object, Aktif_Dosya_Adı As String Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String Set DosyaSistemi = CreateObject("Scripting.FileSystemObject") Aktif_Dosya_Adı = ThisWorkbook.FullName...