Dosyanın bayt cinsinden büyüklüğü nedir?

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba
C:\internet klasörü içindeki Test.xls dosyasının byte cinsinden büyüklüğü nedir?
Teşekkür ederim.
iyi çalışmalar.
:hey:
 
Katılım
18 Eylül 2005
Mesajlar
16
A ya dosya ismini Bye Bayt cinsini Cye de tarihini yazar
Kod:
Sub Dateiname_Hyperlink()
    Dim StDateiname As String
    Dim Dateiform As String
    Dim InI As Long, TotFiles As Long
    Dim Suchpfad As String
    Dim OldStatus As Variant
    Suchpfad = InputBox("Yolunu değiştirebilirsiniz", "Adres yolu", Application.DefaultFilePath)
    If Suchpfad = "" Then Exit Sub
    Dateiform = InputBox("Dosya uzantısını siz değiştiriniz", "Uzantı", "*.xls")
    If Dateiform = "" Then Exit Sub
    Application.ScreenUpdating = True
    OldStatus = Application.StatusBar
    Sheets.Add After:=Worksheets(Worksheets.Count)
    With Application.FileSearch
        .LookIn = Suchpfad
        .SearchSubFolders = True
        .Filename = Dateiform
        If .Execute() > 0 Then
            TotFiles = .FoundFiles.Count
            Application.StatusBar = "Total " & TotFiles & " gefunden"
            For InI = 1 To .FoundFiles.Count
                Application.StatusBar = "Datei: " & InI & " von " & TotFiles
                StDateiname = Mid(.FoundFiles(InI), InStrRev(.FoundFiles(InI), "\") + 1)
                ActiveSheet.Hyperlinks.Add Anchor:=Cells(InI, 1), _
                    Address:=.FoundFiles(InI), TextToDisplay:=StDateiname
                Cells(InI, 2) = FileLen(.FoundFiles(InI))
                Cells(InI, 3) = FileDateTime(.FoundFiles(InI))
            Next InI
        End If
    End With
    Application.StatusBar = OldStatus
    Application.ScreenUpdating = True
End Sub
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhabalar.
Teşekkür ederim.
Ben byte cinsinden değerini öğrenmek isterken Tamda benim yapmak istediğim Bir programın bir parçası geliverdi.
Ama yinede Byte cinsinden değerinin kodlarını öğrenmek istiyorum.
İyi çalışmalar.
:hey:
 
Katılım
18 Eylül 2005
Mesajlar
16
Cells(InI, 2) = FileLen(.FoundFiles(InI))

burası byte cinsinden değerini bulan kısım, alttaki ilk ve üstteki 3 satırın başına ' işaretini koyun ve deneyin.
Kolay Gelsin.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Alternatif olarak aşağıdaki kodda işinize yarayabilir.

[vb:1:16e9516333]MsgBox CreateObject("Scripting.FileSystemObject").GetFile("C:\internet\Test.xls").Size
[/vb:1:16e9516333]
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhabalar.
Teşekkür ederim.
iyi çalışmalar.
:hey:
 
Üst