macro ile yeni dosya yaratmak, öldürmek

[geren36]

İyi geceler arkadaşlar,

ekteki çalışma sayfasında yer alan user formun butonuna tıklayınca yazacağımız makronun,

[ C:\ ] nin altında bulunmayan [ verial.txt ] isimli bir dosya oluşturulmasını; ya da [ verial.txt ] adlı bir dosya varsa dahi önce bunu tamamen silmesini (içindeki verileri değil, dosyanın kendisini) bundan sonra [ verial.txt ] yi oluşturmasını istiyorum..

teşekkürler....

 

[geren36]

biraz uğraştım, kendin pişir kendin ye oldu :hey: :icelim:

Private Sub CommandButton1_Click()
Dim a As String
a = "C:\verial.txt"
On Error Resume Next
Kill a
Set fs = CreateObject("Scripting.FileSystemObject")
Set ab = fs.CreateTextFile("c:\verial.txt", True)
ab.WriteLine ("test test test.")
ab.Close

End Sub

 

[muzzymania]

geren36 ben bu macroyu çalıştıramadım sende çalışıyormu bu

 

[muzzymania]

ben bu macroyu anlayamadım üstelik çalışmadı nerde hata yaptım anlamadım copy+pastele yapıştırdım run ettim ama olmadı

 

[muzzymania]

anlamadımm

ben bu macroyu anlayamadım üstelik çalışmadı nerde hata yaptım anlamadım copy+pastele yapıştırdım run ettim ama olmadı

 

[geren36]

Dikkat ediniz : [ Kill ] komutu dosyanızı geri dönüşüm kutunuza atmamaktadır. Hard diskinizden tamamen silmektedir. Denemeleriniz için boş dosyayla çalışmanızı öneririm..

UPDATE :

[ .txt ] ye ek olarak [ .xls ] dosyasını da öldürüp, yenisini yaratır hale getirdim.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim a As String
a = "C:\verial.txt"
b = "C:\pqrs.xls"
On Error Resume Next
Kill a
Kill b
Set fs = CreateObject("Scripting.FileSystemObject")
Set ab = fs.CreateTextFile("c:\verial.txt", True)
ab.WriteLine ("test test test.")
ab.Close

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
ExcelSheet.SaveAs "C:\pqrs.xls"
Set ExcelSheet = Nothing

End Sub


muzzymania arkadaş;

ben yazdığım için benim bilgisayarımda çalışıyor. Nerede nasıl bir hata veriyor ?