dosya oluşturma tarihini okutabilirmiyiz.?

[atöz]

Merhabalar,
Makro içinde açtırıp kullandığım bir dosyanın (excel dosyası değil, uzantısı .csv olan bir dosya) , "oluşturulma tarihi" bilgisine makro ile ulaşabiliyormuyuz ?
Yardımlar için teşekkürler.

 

[atöz]

Bu konuda acil yardıma ihtiyacım var.

 

[uzmanamele]

merhaba
dosyayı sağ tıklayıp / özellikler / genel
burada oluşturulma tarihini göremiyor musunuz?

 

[atöz]

merhaba,
Makro çalışırken , diyelim ki C kalsorundekı bir dosyayı açıp oradan bilgi alıyorum. makronun bir yerinde de bana bu açtığım dosyanın "oluşturulma tarihi" bilgisi gerekıyor. Bu bilgiye ulaşabilirmiyim.

 

[Kemal Demir]

Merhaba,

Sub TestListFolders()
Application.ScreenUpdating = False
Workbooks.Add ' create a new workbook for the folder list
' add headers
With Range("A1")
.Formula = "Folder contents:"
.Font.Bold = True
.Font.Size = 12
End With
Range("A3").Formula = "Folder Path:"
Range("B3").Formula = "Folder Name:"
Range("C3").Formula = "Size:"
Range("D3").Formula = "Subfolders:"
Range("E3").Formula = "Files:"
Range("F3").Formula = "Short Name:"
Range("G3").Formula = "Short Path:"
Range("h3").Formula = "Tar1:"
Range("I3").Formula = "Tar2:"

Range("A3:ı3").Font.Bold = True
'Folder (klasor) kendınız tanımlayınız.
ListFolders "c:\KEMAL\", True
Application.ScreenUpdating = True
End Sub

Sub ListFolders(SourceFolderName As String, IncludeSubfolders As Boolean)
' lists information about the folders in SourceFolder
' example: ListFolders "C:\FolderName", True
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
Dim r As Long
Set FSO = New Scripting.FileSystemObject
Set SourceFolder = FSO.GetFolder(SourceFolderName)
' display folder properties
r = Range("A65536").End(xlUp).Row + 1
Cells(r, 1).Formula = SourceFolder.Path
Cells(r, 2).Formula = SourceFolder.Name
Cells(r, 3).Formula = SourceFolder.Size
Cells(r, 4).Formula = SourceFolder.SubFolders.Count
Cells(r, 5).Formula = SourceFolder.Files.Count
Cells(r, 6).Formula = SourceFolder.ShortName
Cells(r, 7).Formula = SourceFolder.ShortPath
Cells(r, 8).Formula = SourceFolder.DateCreated
Cells(r, 9).Formula = SourceFolder.DateLastAccessed

If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFolders SubFolder.Path, True
Next SubFolder
Set SubFolder = Nothing
End If
Columns("A:I").AutoFit
Set SourceFolder = Nothing
Set FSO = Nothing
ActiveWorkbook.Saved = True
End Sub


Yukarıdaki kod'un calisması için script kontrol kısmını secmeniz yeterli olcaktır.
Listelemede isteğinize göre ekleyip silebilirsiniz

Bilgi:Kod'un kaynagını hatırlamıyorum:

 

[atöz]

Sevgili rakkas teşekkürler,
diğer bir sorunum daha var. (formlarda ayrı başlık altında sormuştum az önce)
excel vetrsiyonum 2000 olduğunda hucre kilitleyince süzme işleminın pasif olması planlarımı bozuyor. Süzme işleminın yapılabilmesi benim için önemli
dosyada orneğin A1:F500 adresinde, hucrelere veri girişini belki target makrosu ile olabilir , nasıl engelleyebilrim.

 

[baydeniro]

Sayın Kemal Demir çok teşekkürler. Öncelikle çok işimize yarayacak bir kod olduğunu belirtmek isterim. Kodu RUN ederken "User-defined typed not defined" uyarısı ile "Dim FSO As Scripting.FileSystemObject" aşamasında takıldı. 5 nolu mesajda "Yukarıdaki kod'un calisması için script kontrol kısmını secmeniz yeterli olcaktır." şeklinde bir notunuz var. Bunu biraz açar mısınız !! yani nasıl seçmeliyiz !!

Bilgileri kayıt etmek için yeni bir dosya açıyor. Aynı dosya içinde yazması için kodu nasıl revize etmeliyiz.

 

[levo26]

Merhaba;

script kontrol kısmını nasıl seçeceğiz.

2003.TR

 

[Merhum İdris SERDAR]

Sayın Kemal Demir çok teşekkürler. Öncelikle çok işimize yarayacak bir kod olduğunu belirtmek isterim. Kodu RUN ederken "User-defined typed not defined" uyarısı ile "Dim FSO As Scripting.FileSystemObject" aşamasında takıldı. 5 nolu mesajda "Yukarıdaki kod'un calisması için script kontrol kısmını secmeniz yeterli olcaktır." şeklinde bir notunuz var. Bunu biraz açar mısınız !! yani nasıl seçmeliyiz !!

Bilgileri kayıt etmek için yeni bir dosya açıyor. Aynı dosya içinde yazması için kodu nasıl revize etmeliyiz.

.


1. ALT, F11 tuşlarına birlikte basın.

2. Geldiğiniz yerde Tools > Refernces'e girin.

3. Microsoft Scripting Runtime varsa işaretleyin ve OK deyin.

4. Yoksa Browse'a basın ve geldiğiniz yer System32' de Scrrun.dll'yi bulup seçin. Open deyin.

4. En son OK deyip, tamamlayın.

Diğer sorunuz için ise:

Kodun,

Workbooks.Add ' create a new workbook for the folder list

satırını silin. Veya;

Kodun başuna ' işareti koyarak.

'Workbooks.Add ' create a new workbook for the folder list

şekline getirin.


.

 

[baydeniro]

Sayın Yurttas çok teşekkür ederim. Son derece yararlı oldu. Sağlıcakla kalın.