openfiledialog ? lütfen yardım ediniz :(

Z

ZeP

Yeni üye
16 Eyl 2012
42
0
:D
Merhaba arkadaşlar vb de openfiledialog ekliyorum birde butun şu kodları yazıyorum
Kod: 
    Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.Filter = "Cursor Files|*.cur"
        openFileDialog1.Title = "Select a Cursor File"
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Me.Cursor = New Cursor(openFileDialog1.OpenFile())
        End If
bu kod msdn de mi ne geçiyor işte fakat benim amacım dosyayı açmak mesela txt uzantılı dosyayı değilde abc dosyasını açmasını sağlamak (dosyayı açmayacak sadece yandaki textboxa
vesayre yazdırmak)
Yardım ederseniz sevinirim.
 
Tarihe göre sırala Oylara göre sırala
C

CETQ

Uzman üye
28 Şub 2011
1,297
0
VB.net bu kodlar

openfiledialog ile savefiledialog ekle

Imports System.IO
Public Class Form1 bunun üstüne ekle importu

Kayıt için;

On Error Resume Next
Dim file As String
SaveFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
SaveFileDialog1.ShowDialog()
file = SaveFileDialog1.FileName
Dim fs As FileStream = New FileStream(file, FileMode.Append)
Dim w As StreamWriter = New StreamWriter(fs)
w.WriteLine(TextBox1.Text)
w.Close()
fs.Close()


Okuma için;

On Error Resume Next
Dim file As String
Dim tmp As String
OpenFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
OpenFileDialog1.ShowDialog()
file = OpenFileDialog1.FileName
Dim fs As FileStream = New FileStream(file, FileMode.Open)
Dim r As StreamReader = New StreamReader(fs)
TextBox1.Text = ""
Do
tmp = r.ReadLine
TextBox1.Text = TextBox1.Text & tmp & Microsoft.VisualBasic.ControlChars.CrLf
Loop Until tmp Is Nothing
r.Close()
fs.Close()
 
Oyla 0 Downvote
Z

ZeP

Yeni üye
16 Eyl 2012
42
0
:D
CETQ' Alıntı:
VB.net bu kodlar

openfiledialog ile savefiledialog ekle

Imports System.IO
Public Class Form1 bunun üstüne ekle importu

Kayıt için;

On Error Resume Next
Dim file As String
SaveFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
SaveFileDialog1.ShowDialog()
file = SaveFileDialog1.FileName
Dim fs As FileStream = New FileStream(file, FileMode.Append)
Dim w As StreamWriter = New StreamWriter(fs)
w.WriteLine(TextBox1.Text)
w.Close()
fs.Close()


Okuma için;

On Error Resume Next
Dim file As String
Dim tmp As String
OpenFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
OpenFileDialog1.ShowDialog()
file = OpenFileDialog1.FileName
Dim fs As FileStream = New FileStream(file, FileMode.Open)
Dim r As StreamReader = New StreamReader(fs)
TextBox1.Text = ""
Do
tmp = r.ReadLine
TextBox1.Text = TextBox1.Text & tmp & Microsoft.VisualBasic.ControlChars.CrLf
Loop Until tmp Is Nothing
r.Close()
fs.Close()
Genişletmek için tıkla ...
ben yanlız txt istemiyorum doğru okuduysan ben dosya klasörünü seçmesini istiyorum.
 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.