Me.cerceve.Picture = Me.resimlink
Me.ResimBoyut = GetProperties(Me.resimlink, 1)
End Sub
Function GetProperties(file As String, propertyVal As Integer) As Variant
Dim varfolder, varfile
With CreateObject("Shell.Application")
Set varfolder = .Namespace(Left(file, InStrRev(file, "\") - 1))
Set varfile = varfolder.ParseName(Right(file, Len(file) - InStrRev(file, "\")))
GetProperties = varfolder.GetDetailsOf(varfile, propertyVal)
End With
End Function
Me.resimlink, 1) burdaki rakamı 1 den bilmem kaça kadar değiştirisen resmin boyutunu özelliklerini değiştirilme tarihini yerini falanını filanını veriyor
Cevapla