Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR
<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>

Linkleri görebilmek & kisaca forumdan daha yararli bir şekilde yararlanmak için üye olunuz

<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>

Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR

Sxe 10.2 CS 1.5 & 1.6 Wall Hack Sxe Hack , Sxe Hileleri ,Sxe 10.2 Hileleri , Full - Torrent Oyunlar,Tüm Oyunlar , Visual Basic Dersleri,
 
AnasayfaSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

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

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
fRkn*
♥ CS -TR Kurucusu♥
♥ CS -TR Kurucusu♥
avatar

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

MesajKonu: 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.
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://csturkey.forumpro.org
 
Dosyaniz Bilgisayarınızda Varmı ? Yokmu Şipşak Öğrenin
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR  :: Visual Basic :: Visual Basic Anlatimli Hazır Kodlar-
Buraya geçin: