مشکل بعد از دخیره ی فایل!

[علیرضا.ا]

سلام
من لیست پوشه های یک پوشه رو توی یه لیست باکس ریختم
با این دستور هم اون رو سیو میکنم:

SaveFileDialog1.Filter = "Text file (*.txt)|*.txt|All files (*.*)|*.*"
SaveFileDialog1.CheckPathExists = True
SaveFileDialog1.Title = "Save File"
SaveFileDialog1.ShowDialog(Me)
Using SW As New IO.StreamWriter(SaveFileDialog1.FileName, True)
For Each itm As String In Me.listbox1.Items
SW.WriteLine(itm)
Next
End Using

وقتی فایل رو باز میکنم به این شکل سیو شده:

ےطےà JFIF


H H ےل ’Exif MM *  
>   J
?   ZQ


Q 

Q 

z%
† €ƒ
† ùے
† €é
† u0
† ê`
† :ک
† o
† ےغ C  

 $.' ",#(7),01444'9=82<.342ےغ C


2!!222222222222222222222222222222222222222222222 22222ےہ  € €
" 

ےؤ 








ےؤ µ 

}
 !1AQa"q2پ‘،#B±ءRرً$3br‚
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„� �†‡ˆ‰ٹ’“”•–—ک™ڑ¢£¤¥¦� �¨©ھ²³´µ¶·¸¹؛آأؤإئابةتزسش� �ض×طظعلâمنهوçèéêٌٍَôُِ÷ّù� �ےؤ 











ےؤ µ 

w
!1AQaq"2پB‘،±ء #3Rًbrر
$4ل%ٌ&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz‚ƒ„ …†‡ˆ‰ٹ’“”•–—ک™ڑ¢£¤¥� �§¨©ھ²³´µ¶·¸¹؛آأؤإئابةتزس� �صض×طظعâمنهوçèéêٍَôُِ÷ّùْ� �ع 
 ? ÷ْ+وّhïذ7Cے ؟ٌع?ل£¼aے @ف‏üMے اhéْ+وّhïذ7Cے ؟ٌع?ل£¼aے @ف‏üMے اhéْ+وّhïذ7Cے ؟ٌع?ل£¼aے @ف‏üMے اhéْ+وّhïذ7Cے ؟ٌع?ل£¼aے @ف‏üMے اhéْ+وّhïذ7Cے ؟ٌع?ل£¼aے @ف‏üMے اhéْ+وّhïذ7Cے ؟ٌع?ل£¼aے @ف‏üMے اhéْ+وّhïذ7Cے ؟ٌع?ل£¼aے @ف‏üMے اhéْ+وّhïذ7Cے ؟ٌع?ل£¼aے @ف‏üMے اhاè¢ٹ (¢ٹ (¢ٹ (¢ٹ (¢ٹ (¢ٹ (¢®é؛\ْ”غcc~B8â}ھe%ylkF…Jُ:Jٍ}
T Iہ5ق®‹§*…û$g=jX4ë;i<بmرـ5آَtLْ¸pv%µدR)|ے à{EW |xQE QE QE QE QVôي>]FنC ,ا¢ٹêلس؟»'‎÷\ُq4é;Ks×ثٍ<^>¥$’]^—ô9Kg¼؛ژق?¼çôحz
µ¼v¶éK„Aپïî}ê2×Oـ`ڈفYژN=*هyک¬O¶iGd}ضC’ے gBR©g9vè»ںü ¢ٹ+گْجè¢ٹْcًà¢ٹ( ¢ٹ( ¢§´³‍ِuٹ,ا©ى©5عéڑDl\ َ0ù¤#ô‚¹ëâcEk«=œ«%¯کتٌ÷`·هـ� �ë{Kًن³²ثxpم;?‰½½«­ع؟ف•-pTاتJرV>«آT(شç¯>t؛Zث竹ذ[)X"Hء9!F3RرEp6ق¬ْبB0\±VAEPPQE
وtQE}1ّpQE QE^ر­م¹ص­â”e $ڈ\qْTتJ1r}
hQ•j±¥نزûفژاJپ­´ب#xض7غ–
;ûûْصع(¯œ”œ›l‎‍چ(ر§qظ$¾à¢� �)…Q@Q@Q@gEWس‡Q@hèR,Zص³9ہ,Wٌ پْڑخ§إ#C*J‡ŒO¸©œy¢مـك[طW…_هi‎خç¤رQء2\@“Dغ‘ئA©+وع¶Œ ‎¦2RJQwL(¢ٹQE QE QE y‌Q_L~QE QE wع2Fڑ=¨چ·.ہIخy<ں×5z¼ِ
Fٍع/.‡Dخvƒإt~ضëu­ش›¦خQڈVال‏zWڈ� �آN7©{ں¤düC†­ىًœ®.ةtµزغü¾م~ٹ(� �êBٹ( ٹ( ٹ( 3¢¾ے ¢¾کü8ّٹû‏ٹ ّٹû‏ٹ ّں¯©,mµذ†Sèkïت(ـi¸»­د†ے ل)؟ے ‍vے ÷ةے كرu?ي;Vg
&C‡
8ç،ے >•ِ-ةWNq´U™ïà¸ڈ‡«دVNqىكüنت+ë:+ں û;ûك‡üطے \ے éا‏Mے عں&Q_YرGِw÷؟ّ!‏¹ے سڈü›ے µ>L¢¾³¢ڈىïï~ًC‎sے §ù7ے jےظfolder1

اون کد های اول یه عکس هستن!(اگه فایل txt رو با کروم باز کنیم فقط عکس میاد و لیست پوشه ها نمیاد!

الان مشکل کار کجاست؟
راه حل چیه؟:متفکر:

[rahnema1]

من لیست پوشه های یک پوشه رو توی یه لیست باکس ریختم



فکر کنم اشکال کار همون جاست که کدش رو نگذاشتین
احتمالا به جای آدرس فایلها محتوای آونها رو توی آیتم ها ریختین

[علیرضا.ا]

اخه فقط برای فایل اول این کد اجرا میشه!
ینی کدی که دادم رو به خط اول فایل txt میریزه+اخر اون اسم یه پوشه اول هست
از خط بعد هم هر پوشه توی یه خط به نمایش در میاد بدون مشکل!

[Hossis]

من که از این کد سر در نیاوردم ولی کدی که من استفاده می کنم و همیشه هم جواب میده این خطه (که بعد از باز شدن دیالوگ و جواب OK باید قرار داده بشه (بعد از خط 4)
IO.File.WriteAllLines(Sfd.fileName, listbox1.Items)

[علیرضا.ا]

کدی که دادی ارور میده:لبخند:

Unable to cast object of type 'ObjectCollection' to type 'System.Collections.Generic.IEnumerable`1[System.String]'.

به listbox1.items گیر میده!

[Hossis]

Dim sfd As New SaveFileDialog
If sfd.ShowDialog = 1 Then
Dim flds As New List(Of String)
For Each itm As String In Me.ls.Items
flds.Add(itm)

Next
IO.File.WriteAllLines(sfd.FileName, flds.ToArray)

End If

[علیرضا.ا]

خیلی ممنون کار کرد:x