Dosyaniz Bilgisayarınızda Varmı ? Yokmu Şipşak Öğrenin

Yazar

Mesaj

fRkn*
♥ CS -TR Kurucusu♥

Mesaj Sayısı : 345
Rep Puanı : 1103
Kayıt tarihi : 23/07/10
Nerden : İzmir

Dosyaniz Bilgisayarınızda Varmı ? Yokmu Şipşak Öğrenin Empty

Konu: Dosyaniz Bilgisayarınızda Varmı ? Yokmu Şipşak Öğrenin Ptsi Tem. 26, 2010 1:19 am

'Bir dosyanın sürücüde var olup olmadığını kontrol etmek için; Option Explicit Function DosyaAc(dosyaadi$) As String Dim dosya_no As Integer dosya_no = FreeFile Open dosyaadi$ For Input As #dosya_no DosyaAc = Input$(LOF(dosya_no), dosya_no) Close #dosya_no End Function Private Sub Command1_Click() Dim Dosya On Error Resume Next Dosya = Dir("c:\burak.txt") If Dosya = "" Then Text1.Text = "Dosya Yok" Else Text1.Text = "Dosya Var" End If End Sub 'Command1 e basıldığında burak.txt dosyası c sürücüsünde varsa "dosya var", yoksa "dosya yok" yazacaktır.

Dosyaniz Bilgisayarınızda Varmı ? Yokmu Şipşak Öğrenin

1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:

Bu forumdaki mesajlara cevap veremezsiniz

Buraya geçin: