txt klasöre aktarma sorunu

[aherab]

arkadaşlar önce tarih neyse onun ismi ile bir dosya oluşturuyorum mesela bugün 02.03.2010 aynı adla klasör oluşturuyorum

Private Sub Command1_Click()
Dim tarih As String
tarih = Date
MkDir "C:\" + tarih 
End Sub

daha sonra listboxta listelediğim listeyi bir txt dosyası oluşturarak o klasörün içine atmak istiyorum

Private Sub Command2_Click()
Dim a As String
Dim tarih As String
Open [COLOR="Red"]"c:\" + tarih & mehmet.txt[/COLOR]  For Output As #1
For i = 0 To List1.ListCount - 1
a = List1.List(i)
Write #1, a
Next
Close #1
End Sub

bu kırmızı olan yerde hata alıyorum orayı nasıl yazmam gerek
ayrıca klasörün adını
Dim tarih As String
dim zaman as string
tarih = Date
zaman = time
MkDir "C:\" + tarih + zaman veya
MkDir "C:\" + tarih & zaman şeklinde hata alıyorum doğrusu nedir yardım ederseniz sevinirim

 

[Orion1]

Şöyle deneyiniz.

Open "c:\" & tarih & "mehmet.txt"  For Output As #1

 

[aherab]

olmadı hocam o klasörün içine oluşmadı c nin altında 02.03.2010mehmet.txt adlı bir dosya oldu

 

[Orion1]

olmadı hocam o klasörün içine oluşmadı c nin altında 02.03.2010mehmet.txt adlı bir dosya oldu

Tamam doğrudur.
Siz ne istiyorsunuz?

 

[aherab]

önce o tarihli bir klasör oluşturmak sonra oluşturduğum txt uzantılı dosyayı o tarihli klasörün içinde oluşturmak

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Dim TargetFolder As String,tarih as date
tarih=now
Set fs = CreateObject("Scripting.FileSystemObject")
TargetFolder = "C:\" & format(tarih,"dd_mm_yyyy_hh_mm_ss")
If not fs.FolderExists(TargetFolder) Then
ChDir "C:\"
MkDir(format(tarih,"dd_mm_yyyy_hh_mm_ss"))
End if
Dim a As String
Open "c:\" & format(tarih,"dd_mm_yyyy_hh_mm_ss") & "\mehmet.txt"  For Output As #1
For i = 0 To List1.ListCount - 1
a = List1.List(i)
Write #1, a
Next
Close #1

End Sub

 

[aherab]

hocam oldu teşekkürler fakat şimdi listboxtan aldığım ve txt dosyasına aktardığımda başında ve sonunda " işareti var onu kaldırabilir miyim ?

 

[Orion1]

a = List1.List(i)
If Left(a, 1) = """" Then a = Right(a, Len(a) - 1)
If Right(a, 1) = """" Then a = Left(a, Len(a) - 1)
Write #1, a

 

[aherab]

teşekkürler yardımlarınız için teşekkürler

 

[Orion1]

teşekkürler yardımlarınız için teşekkürler

Rica ederim.
İyi çalışmalr.

 

[aherab]

a = List1.List(i)
If Left(a, 1) = """" Then a = Right(a, Len(a) - 1)
If Right(a, 1) = """" Then a = Left(a, Len(a) - 1)
Write #1, a

hocam yalnız bu kod çalışmadı

 

[Orion1]

hocam yalnız bu kod çalışmadı

Nasıl çalışmadı.
Örnek dosya ekleyiiz.

 

[aherab]

wirte kodu yerine print kullanıldığında "" olayı kalkıyor