Új hozzászólás Aktív témák

• #44637 zsolti_20 senior tag Fferi50 #44634

  Új Válasz 2020-08-18 11:40:55 #44637

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zsolti_20

  senior tag

  válasz Fferi50 #44634 üzenetére

  Szia! Sajnos a filenak maradnia kell a mappában, mert bárki más lekérdezheti a későbbiekben automatizálás nélkül is.
  Egy FTP szervert indítottam a PC-n és egy mappát adtam meg FTP mappának. Erről a PC-ről tudja majd mindenki lekérdezni a file tartalmát amikor akarja.
  
  Arra gondoltam, hogy lenne mondjuk TEST1 és TEST2 file. A TEST1 file a 10 percenként beérkező file a TEST2 pedig a beérkezés után 2 perccel automatikus létrehozott másolat.
  
  A TEST2 fileból kérdezni le mindenki, mert lehet másolás közben nem esik szét a file annyira mint amikor a letöltéskor jön létre.
  
  Vagy van egy másik ötletem, az egész file formátumát átalakítom .csv-re ami szinte már csak TEXT file és lehet ott nem lesz semmi probléma.

• #44636 Delila_1 veterán Fferi50 #44634

  Új Válasz 2020-08-18 11:28:56 #44636

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fferi50 #44634 üzenetére

  A módosítás időpontja is lekérdezhető. Ímé pár adat lekérdezése:

  Sub info()
Dim fn, size, crdat, uhf, um, fs, lapn

fn = ThisWorkbook.FullName
lapn = ActiveSheet.Name
Set fs = CreateObject("Scripting.FileSystemObject")
Set fn = fs.GetFILE(fn)
size = Format(fn.size, "# ##0")
crdat = fn.DateCreated
uhf = fn.DateLastAccessed
um = fn.DateLastModified

With Sheets(lapn)
.Cells(1, 1) = "Útvonal, név: " & fn
.Cells(2, 1) = "Méret: " & size / 1024 & " KB (" & size & " bájt)"
.Cells(3, 1) = "Létrehozva: " & crdat
.Cells(4, 1) = "Utolsó hozzáférés: " & uhf
.Cells(5, 1) = "Utolsó módosítás: " & um
End With
End Sub

Új hozzászólás Aktív témák