Soru Dosya adını +1 arttırmak

[k0081]

Merhaba arkadaşlar;

Şöyle bir sorum vardı, Yardımcı olabilirseniz.
---------------------------------------------------

C:\örnek klasörü içinde deneme.txt isminde bir dosya oluşturuyorum. kod ile... kodu ikinci kez veya daha fazla çalıştırdığımda,;

deneme.txt

deneme1.txt
deneme2.txt
deneme3.txt
deneme4.txt

.....

şeklinde olması için kodda ne gibi ekleme yapmalıyım.

yardımcı arkadaşa şimdiden Teşekkürler.

 

[Necdet]

Merhaba,

Oluşturduğunuz kodları ekleyin, ilgilenen arkadaşlar kodlar üzerinde değişiklik yaparlar.

 

[k0081]

Necdet;

Dim kls, n, DosyaAdi
Dim fs1 As Object
Set fs1 = CreateObject("Scripting.FileSystemObject")
pano.panotxt = Clipboard.GetText
DosyaAdi = deneme
If DosyaAdi = "" Then
MsgBox "İşlem iptal edildi.", , "Klasöre Txt Oluştur"
Exit Sub
End If
komut_txt = pano.panotxt
txtdosya = (CurDir & "\" & DosyaAdi & ".txt")
If Len(Dir(txtdosya)) > 1 Then Kill txtdosya
Open txtdosya For Output As 1
Print #1, komut_txt
Close

 

[Asri]

Kontrol ediniz.

Dim kls, n, DosyaAdi
Dim fs1 As Object
Dim Clipboard As New MSForms.DataObject
'Asri Akdeniz - asriakdeniz@gmail.com - www.asriakdeniz.com

VBA references de Microsoft Forms 2.0 Object library seçili olmalı.

Sub cokludosya()
    Set fs1 = CreateObject("Scripting.FileSystemObject")
    Clipboard.GetFromClipboard
    panotxt = Clipboard.GetText()
    
    DosyaAdi = "Deneme"
    
    If DosyaAdi = "" Then
        MsgBox "İşlem iptal edildi.", , "Klasöre Txt Oluştur"
        Exit Sub
    End If

    i = 0
    dosya = CurDir & "\" & DosyaAdi & ".txt"
    Do While dosyavarmi(dosya)
       i = i + 1
       dosya = CurDir & "\" & DosyaAdi & i & ".txt"
    Loop
    
    Open dosya For Output As 1
    Print #1, panotxt
    Close

End Sub

Function dosyavarmi(dosya)
  Dim ds, a
  Set ds = CreateObject("Scripting.FileSystemObject")
  a = ds.FileExists(dosya)
  If a = True Then
    dosyavarmi = True
  Else
    dosyavarmi = False
  End If
End Function

 

[k0081]

Hocam çok Teşekkür ederim Tamamdır... elinize sağlık.