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.
...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...
...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...
...= "" 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 =...
@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#
...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 =...
...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)...
...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ı...
...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 =...
...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...
...= "" 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 =...
...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
...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...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.