Sorgu için arama sonuçları: GetDetailsOf

  1. N

    Excel'de video dosyalarının çözünürlüklerini listelemek

    FrameWidth = oFolder.GetDetailsOf(oItem, 316) FrameHeight = oFolder.GetDetailsOf(oItem, 314) Bu sayılar bende 200'lü birşeylerdi 316-314 yaptım düzeldi. tam olarak ne yaptığımı bilmesem de sorunum çözülmüş oldu :) ilginiz için teşekkür ederim.
  2. ÖmerBey

    Filmleri Excel'e Aktarma

    ...deneyiniz. Sub kod() Dim met As String, a As Integer For a = 1 To 500 If CreateObject("Shell.Application").Namespace("C:\").GetDetailsOf(, a) Like "*Çerçeve*" Then met = met & CreateObject("Shell.Application").Namespace("C:\").GetDetailsOf(, a) & " - " & a & vbLf End If Next...
  3. ÖmerBey

    Filmleri Excel'e Aktarma

    Merhaba, Ekteki dosyayı dener misiniz? FrameWidth = oFolder.GetDetailsOf(oItem, 316) FrameHeight = oFolder.GetDetailsOf(oItem, 314)
  4. N

    klasördeki excellerin properties bölümündeki başlıkları listelemek

    ...For X = 1 To 40 Cells(1, X + 1) = CreateObject("Shell.Application").Namespace(Klasör).GetDetailsOf("", X) Cells(Satır + 1, X + 1) = CreateObject("Shell.Application").Namespace(Klasör).GetDetailsOf(Dosya, X) Next Next Cells.EntireColumn.AutoFit...
  5. Korhan Ayhan

    PDF -> Dosya -> Özellikler - Veri Çekme Hk.

    İnceleyiniz. https://www.excel.web.tr/search/217190/?q=GetDetailsOf&o=date https://www.excel.web.tr/threads/dosya-oezellikleri-listeleme.89414/
  6. yasin85

    Klasör İçinde Bulunan Sütun Verilerin Özellikleri Excele Aktarmak.

    ...= "" Then Exit Sub Cells(1, 1) = "Dosya adı" For a = 1 To 48 Cells(1, a + 1) = CreateObject("Shell.Application").Namespace(Klasor).GetDetailsOf("", a) Next sat = sat + 1 For Each dosyaadi In CreateObject("Scripting.FileSystemObject").GetFolder(klasoryolu).Files c = c + 1 Set Dosya =...
  7. veyselemre

    jpg resmin çözünürlüğü

    ...For Each fileObj In foldObj.Items sat = sat + 1 vRes = foldObj.GetDetailsOf(fileObj, HorizontalRes) hRes = foldObj.GetDetailsOf(fileObj, VerticalRes) Cells(sat, 1).Value = fileObj.Name Cells(sat, 2).Value =...
  8. Lenadro

    Dosya değiştirilme tarihini hücreye yazdırma

    @Haluk Bey, Yönlendirmiş olduğunuz sayfa içerisinde kodu buldum ve işimi çözdüm. Şahsınıza çok ama çok teşekkür ederim :) #Bilgi Paylaştıkça Kutsaldır#
  9. H

    Dosya değiştirilme tarihini hücreye yazdırma

    https://www.excel.web.tr/search/188614/?q=GetDetailsOf .
  10. H

    Çözüldü Ts dosyası süresi

    ...Set objFolderItem = objFolder.ParseName("bbb24p_00.ts") If (Not objFolderItem Is Nothing) Then strInfo = objFolder.GetDetailsOf(objFolderItem, 27) myMsg = IIf(strInfo = Empty, "Veri bulunamadi!", strInfo) MsgBox myMsg End If Set objFolderItem =...
  11. H

    Çözüldü Ts dosyası süresi

    ...If (Not objFolderItem Is Nothing) Then For i = 0 To 40 strInfo = objFolder.GetDetailsOf(objFolderItem, i) If Not strInfo = Empty Then iRow = iRow + 1 Cells(iRow, 1) = objFolder.GetDetailsOf(objFolder.Items, i)...
  12. acar6783

    Klasörde belirttiğim uzantılı dosyaları bulup listeleme makrosu

    ...Set xFolderItem = xklasör.ParseName(StrConv(xName, vbFromUnicode)) End If If Not xFolderItem Is Nothing Then GetFileOwner = xklasör.GetDetailsOf(xFolderItem, 8) Else GetFileOwner = "" End If Set xShell = Nothing Set xklasör = Nothing Set xFolderItem = Nothing End Function Kodlarını...
  13. J

    Resim verilerini alma (width x height, size)

    ...With oFldr For iCol = LBound(vArray) To UBound(vArray) Cells(lRow, iCol + 1) = .getdetailsof(.items, vArray(iCol)) Next iCol For Each oFile In .items lRow = lRow + 1 For iCol =...
  14. C

    Alt klasorde dosya ozellikleri

    ...TextToDisplay:=dosya.Name For X = 1 To 40 Cells(1, X + 1) = CreateObject("Shell.Application").Namespace(Klasör).GetDetailsOf("", X) Cells(Satır + 1, X + 1) = CreateObject("Shell.Application").Namespace(Klasör).GetDetailsOf(dosya, X) Next Next...
  15. İ

    klasörde bulunanların tüm adresini yazma

    ...= "" Then Exit Sub Cells(1, 1) = "Dosya adı" For a = 1 To 48 Cells(1, a + 1) = CreateObject("Shell.Application").Namespace(Klasor ).GetDetailsOf("", a) Next sat = sat + 1 For Each dosyaadi In CreateObject("Scripting.FileSystemObject").GetFold er(klasoryolu).Files c = c + 1 Set Dosya =...
  16. B

    Dosya Özellik Bilgilerini İstenilen Dosyaya Yazdırmak ?

    ...Cells(1, c + 1) = dosyaadi.Name For a = 1 To 40 If c = 1 Then Cells(a + 1, "a") = CreateObject("Shell.Application").Namespace(klasor).GetDetailsOf("", a) Cells(a + 1, c + 1) = CreateObject("Shell.Application").Namespace(klasor).GetDetailsOf(dosya, a) Next Next End Sub
  17. M

    Dosya özellikleri listeleme

    ...Cells(1, c + 1) = dosyaadi.Name For a = 1 To 40 If c = 1 Then Cells(a + 1, "a") = CreateObject("Shell.Application").Namespace(klasor).GetDetailsOf("", a) Cells(a + 1, c + 1) = CreateObject("Shell.Application").Namespace(klasor).GetDetailsOf(dosya, a) Next Next End Sub Kodu yazan Levent...
Üst