Sorgu için arama sonuçları: createfolder

...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

...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...