Masa ustundeki dosyayi yeniden isimlendirip yerine baska dosya yapma

Katılım
4 Temmuz 2006
Mesajlar
239
Merhaba arkadaslar
Masa uzerine macro ile "Statements" adi altinda dosya olusturuyorum fakat programi calistirmadan once her defasinda olusturulan dosyayi silmem gerekiyor cunku bir sonraki calistirmamda bana "Dosya var"hatasi veriyor. Yapamak istedigim - eger dosya var ise yeniden isimlendirmek , ornegin " StatementsOld" ismi vererek, boylece tekrar "Statements" adi altinda dosyasi olusturabilirim hata olmadan.
Asagidaki kod dosyayi olusturma kodu, yardimci olursaniz sevinirim

Saygilar

Sub AFolderVBA()
MkDir "C:\Users\TR\Desktop\Statements"
End Sub
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Eğer dosyadan dediğinizde bunu klasör anlıyacaksak bunu bir dene
Kod:
Sub AFolderVBA()

ad = "C:\Users\TR\Desktop\"
klasor = "Statements"
say = CreateObject("Scripting.FileSystemObject").GetFolder(ad).SubFolders.Count

If CreateObject("Scripting.FileSystemObject").FolderExists(ad & klasor) = False Then
MkDir ad & klasor
Else
MkDir ad & klasor & say
End If

End Sub
 
Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
veya

Kod:
Sub AFolderVBA()


masa = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
klasor = "Statements"

say = CreateObject("Scripting.FileSystemObject").GetFolder(masa).SubFolders.Count

If CreateObject("Scripting.FileSystemObject").FolderExists(masa & klasor) = False Then
MkDir masa & klasor
Else
MkDir masa & klasor & say
End If

End Sub
 
Katılım
4 Temmuz 2006
Mesajlar
239
Cok tesekkurler guzel calisti yanliz bir onceki klasoru sildirip yerine yeni klasor ekleybilirmiyim sistem tarihi ve saati ile? Yoksa program her calistiginda yeni bir dosya verecek, ayrica durmadan ismi degisen klasorun icine nasil dosya aktaririm her defasinda ismi degisecek?

saygilar
 
Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Merhaba arkadaslar
Masa uzerine macro ile "Statements" adi altinda dosya olusturuyorum fakat programi calistirmadan once her defasinda olusturulan dosyayi silmem gerekiyor cunku bir sonraki calistirmamda bana "Dosya var"hatasi veriyor. Yapamak istedigim - eger dosya var ise yeniden isimlendirmek , ornegin " StatementsOld" ismi vererek, boylece tekrar "Statements" adi altinda dosyasi olusturabilirim hata olmadan.
Asagidaki kod dosyayi olusturma kodu, yardimci olursaniz sevinirim

Saygilar

Sub AFolderVBA()
MkDir "C:\Users\TR\Desktop\Statements"
End Sub
1 nolu mesajınızda böyle yazmıyor.
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Siz isterseniz şöyle yapın masa üstünde klasör varsa kodlarınızı ona göre yazın eğer istenen klasör yoksa bu kod kendisi oluşturacaktır.

Kod:
Sub AFolderVBA()
masa = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
klasor = "Statements"
If CreateObject("Scripting.FileSystemObject").FolderExists(masa & klasor) = False Then
MkDir masa & klasor
End If
End Sub
 
Katılım
4 Temmuz 2006
Mesajlar
239
Sagolun ama ilk verdiginiz kod cok guzel cunku her defasinda olusan klasore yeni dosyalar eklenecek. Yani birden fazla klasor oalcak ve programi calistirdigimda her klasore o anki secilen dosyalari aktarilacak. O yuzden tarih ve saat onemli. Ilk verdiginiz kod klasorlere 1.2.3.4 gibi sirali isimler veriyor , tarih ve saat isime ekleme istegim o anki olusturulan klasore o anki secilen dosyalari aktarma . Mumkun mu acaba?

Cok teskekurler simdiden, saygilar sunuyorum
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
kod:
Kod:
Sub AFolderVBA()

ad = "C:\Users\TR\Desktop\"
Klasor = "Statements"
say = Format(Now, "yyyy-mm-dd hh-nn-ss")

If CreateObject("Scripting.FileSystemObject").FolderExists(ad & Klasor) = False Then
MkDir ad & Klasor
Else
MkDir ad & Klasor & say
End If

End Sub
 
Katılım
4 Temmuz 2006
Mesajlar
239
harika oldu cok tesekkurler , simdi her defasinda degisik isim alan klasore nasil dosya atabilirim onu bulmaya calisacagim. saygilar
 
Üst