Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Mart 2007 Cumartesi

File System Object



'Module1

Option Explicit
Dim FSO As Object, FSOD As Object, FSODC As Double, FSODN As Object
Dim Mesaj As String

Sub FileSystemObject()
On Error Resume Next
Set FSO = VBA.CreateObject(Class:="Scripting.FileSystemObject", ServerName:="")
Set FSOD = FSO.Drives
FSODC = FSOD.Count
Mesaj = "Toplam Sürücü Sayısı" & VBA.Chr(9) & FSODC & vbCrLf
Mesaj = Mesaj & Application.WorksheetFunction.Rept("-", 70) & vbCrLf
For Each FSODN In FSOD
If FSODN.DriveLetter = "C" Then
Mesaj = Mesaj & "Sürücü" & VBA.Chr(9) & FSODN & vbCrLf & VBA.Chr(9)
Mesaj = Mesaj & "Boş Alan" & VBA.Chr(9) & VBA.Chr(9) & VBA.Format(FSODN.AvailableSpace, "###,##0") & " Bytes" & vbCrLf & VBA.Chr(9)
Mesaj = Mesaj & "Seri No" & VBA.Chr(9) & VBA.Chr(9) & FSODN.SerialNumber & vbCrLf & VBA.Chr(9)
Mesaj = Mesaj & "Sürücü Tipi" & VBA.Chr(9) & FSODN.DriveType & vbCrLf & VBA.Chr(9)
Mesaj = Mesaj & "Kullanım Durumu" & VBA.Chr(9) & FSO.DriveExists(FSODN) & vbCrLf & VBA.Chr(9)
Mesaj = Mesaj & "Dosya Sistemi" & VBA.Chr(9) & FSODN.FileSystem & vbCrLf
Else
Mesaj = Mesaj & "Sürücü" & VBA.Chr(9) & FSODN & vbCrLf & VBA.Chr(9)
Mesaj = Mesaj & "Sürücü Tipi" & VBA.Chr(9) & FSODN.DriveType & vbCrLf & VBA.Chr(9)
Mesaj = Mesaj & "Kullanım Durumu" & VBA.Chr(9) & FSO.DriveExists(FSODN) & vbCrLf
End If
Next FSODN
Mesaj = Mesaj & Application.WorksheetFunction.Rept("-", 70) & vbCrLf
MsgBox Mesaj & "Mustafa ULUSARAÇ 01ulusarac@superonline.com", vbInformation, "[PBİD®] File System Objects"
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul