iki tane yeni yetme oğlancık (Duman) . -Oğlancık lafını şarkıdan esinlenerek kullandığımı belirtmek isterim :)- çıkıp şarkılarında Kuran-ı Kerim’deki bir ayeti değiştiriyor. Ihlas suresindeki “Lem yelid velem yuled” (Allah, Doğmamıştır ,doğurulmamıştır) ayeti bakın nasıl değiştiriliyor. Allah sonumuzu hayreylesin

Ortada bir dergah var
Devrilir başın yarar
Arkasında tezgah var
Lem yelid ve löp yutar

Klasör Taşıma:
My.Computer.FileSystem.CopyDirectory(”C:\kaynak_klasor”, “D:\Hedef_klasor”)

Dosya Kopyalama:
My.Computer.FileSystem.CopyFile(”C:\kaynak.txt”, “C:\yeni_klasor\hedef.txt”)

Dosya Yaratma:
My.Computer.FileSystem.WriteAllText(”C:\Test.txt”, String.Empty, False)

Klasör Yaratma:
My.Computer.FileSystem.CreateDirectory(”C:\Yeni_klasor”)

Geçici Dosya Oluşturma:
uygulamaya import visual.basic desteği eklenmeli
Dim dosyaadi As String = My.Computer.FileSystem.GetTempFileName()

Bir Dosya Silme:
My.Computer.FileSystem.DeleteFile(”C:\Test.txt”, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

İstenen Dosya Var mı?
Dim dvarmi As Boolean= My.Computer.FileSystem.FileExists(”C:\Test.txt”)

İstenen Klasör Var mı?
Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists(”C:\hedef_klasor”)

Bir Dosyanın Boyutu Kaç?
Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo(”dosya.txt”).Length

Diskin Boş Boyutunu Öğrenmek:
Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo(”C:\”).TotalFreeSpace

Bir Dosyanın Bilgilerini Öğrenme:
Dim dbilgi As FileInfo = My.Computer.FileSystem.GetFileInfo(”C:\Test.txt”)

Dosya Taşıma:
My.Computer.FileSystem.MoveFile(”C:\eski_klasor\dosya.txt”, “c:\yeni_klasor\dosya.txt”)

Dosyadan Metin Okuma:
Dim dicerigi As String = My.Computer.FileSystem.ReadAllText(”C:\Test.txt”)

Klasörü Yeniden Adlandırma:
My.Computer.FileSystem.RenameDirectory(”C:\eski_klasor”, “yeni_klasor”)

Dosyayı Yeniden Adlandırma:
My.Computer.FileSystem.RenameFile(”C:\eski.txt”, “yeni.txt”)

Müslüman ülkelerin yapamadığını yapıyor ve israil konsolosluğundaki yahudi insan müsveddelerini sınır dışı ediyor. Helal olsun demekten başka birşey diyemiyorum.

kaynak

Obama Amerika’ya başkan seçildiği için Van’ın Gürpınar ilçesinde köylüler 44 tane kurban kesmişler. Bunlara söylenebilecek bir şey bulamıyorum. Kurban kesilen hayvanların tanesini en az 250 ytl ‘den hesaplarsanız bu tam 11.000 YTL (11 milyar TL) eder. Bunu düşününce  yukardaki fotoğraftaki koyunlarla ordaki insanların yer değiştirmeyi hakettiğini düşünüyorum. 11 milyar ile evine et girmeyen 11 fakir aileyi sevindirmek için akıl lazım tabii ki.

Kaynak: Haber7 , yorum Mehmet Büküm

'öncelikle visual studio'da projenize
 project > add references > .net sekmesinden > system.management
desteği eklemelisiniz

'sonra fonksiyonumuzu tanımlıyoruz
Public Function serinoal(ByVal surucu As String) As String
        Dim secilen As String = "Win32_logicaldisk='" & surucu & "'"
        Dim objMO As New System.Management.ManagementObject(secilen)
        objMO.Get()
        Return CType(objMO.Properties("VolumeSerialNumber").Value, String)
    End Function

'örneğin bir button'un tıklanma olayına şu kodu ekleyelim

MsgBox(serinoal("c:"))