C:\Den altına den.txt adında dosya oluştur/ sil

[heft]

Selamlar
Aşağıdaki işlemi yaptırmak istiyorum yardımcı olabilirseniz sevinirim

Commandbutton 1 e bastığımda
C:\den altına den.txt adında bir dosya oluştursun.
Commandbutton 2 e bastığımda
C:\den altına den.txt adında bir dosya silsin .

 

[veyselemre]

aşağıdaki linkteki haluk beyin kodlarında istemiş olduğunuz bilgi mevcut
http://www.excel.web.tr/viewtopic.php?t=14606

 

[heft]

üzgünüm ama kodlardan çıkaramadım :roll:

 

[veyselemre]

[vb:1:49fc1be3c7]Private Sub CommandButton1_Click()
Dim MyFile As String, MyTempFile As String
Dim FileNum1 As Long
MyFile = "C:\den\den.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("C:\Den") = False Then fs.CreateFolder ("C:\Den")
Set fs = Nothing

FileNum1 = FreeFile
Open MyFile For Output As #FileNum1
Close #FileNum1
End Sub
Private Sub CommandButton2_Click()
On Error Resume Next
Kill "C:\den\den.txt"
End Sub[/vb:1:49fc1be3c7]

 

[heft]

Çok teşekkürler sağolunn

 

[Ongun]

Sayın veyselemre,

MyFile = "C:\den\den.txt" dosyasının içerisine bir şeyler yazdırıp kaydettirmek istersek, nasıl bir işlem yapmamız lazım.

Bu konuda yardımcı olabilirmisiniz. Saygılarımla

 

[veyselemre]

listbox1 deki verileri kaydettirmek için

[vb:1:7d9bf8311e]Private Sub CommandButton1_Click()
Dim MyFile As String
Dim FileNum1 As Long
MyFile = "C:\den\den.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("C:\Den") = False Then fs.CreateFolder ("C:\Den")
Set fs = Nothing

FileNum1 = FreeFile
Open MyFile For Output As #FileNum1
For x = 0 To ListBox1.ListCount - 1
Write #FileNum1, ListBox1.List(x)
Next x
Close #FileNum1

End Sub
[/vb:1:7d9bf8311e]

 

[Ongun]

Sayın veyselemre, ilginiz ve emeğiniz için çok teşekkür ederim.

Listbox yerine textbox kullanılırsa, bu konuda da bilgi verirseniz sevinirim.

Tekrar teşekkür ederim. Saygılarımla k::

 

[veyselemre]

[vb:1:7221f723cc]For x = 0 To ListBox1.ListCount - 1
Write #FileNum1, ListBox1.List(x)
Next x[/vb:1:7221f723cc]
yerine
[vb:1:7221f723cc]Write #FileNum1, textbox1.text[/vb:1:7221f723cc]
yazabilirsin

 

[Ongun]

Sayın veyselemre, ilginiz ve emeğiniz için çok teşekkür ederim.

Saygılarımla
:hey: