kako dodati datum

Re: kako dodati datum 18.01.2016. u 03:11 · pre 131 mesec #21

Pozdrav svima. Imam jedno pitanje koje možda može da se uvrsti u ovu temu. Moje pitanje glasi kako da izvezene tekstualne ili SNP fajlove u kreiranom folderu na način kao u ovoj temi upakujem pomocu zip. Odnosno kako da pompću nekog koda iz Accessu 2003 kompresujem podfolder i tekstualni fajl. Da li je potrebno da se koristi zip32.dll i kako. Evo konkretan primer gde imam import u tekst fajlu i sada bih hteo da podfolder "MojFolder" sa tekstualnim fajlom "IvestajA" bude kompresovan.
DoCmd.TransferText acExportDelim, "tblObrazacEIS", "tblObrazac", "c:\Izvestaj\MojFolder\IzvestajA" & ".txt", , , 65001
Ako neko može da mi odgovori mnogo bi mi pomogao. Hvala.

Potpis

I.L.

Re: kako dodati datum 19.01.2016. u 20:41 · pre 131 mesec #22

Ja na poslu koristim bat fajl koji pokreće RAR u određeno vreme (namešteno je u task scheduleru). Zapakuje ceo zadati folder, premesti ga na zadatu putanju i preimenuje ga tako da doda datum kompresije na kraju. Nisam probao sa ZIP arhiverom. Možeš, do duše, da iskoristiš i acces fajl koji ti šaljem u prilogu, koji kada se otvori posle određenog vremena pokreće isti bat fajl. Neko je od forumaša u jednoj od tema direktno u access fajlu postavio kod, ali nemam trenutno vremena da pronađemgde je. Ako stignem pronaći ću stura.
Pogledaj i temu http://www.elitesecurity.org/t470454-5#3386154
Nadam se da sam pomogao.
Pozdrav.

RarTG.bat0.62k RarPopisAkataTG.mdb196k

Re: kako dodati datum 20.01.2016. u 16:51 · pre 131 mesec #23

Evo, nađoh i kod. Ne znam u kojoj je temi i ko je postavio, ali sam fajl sačuvao.

Private Sub Command0_Click()
If Shell("c:\program files\winrar\rar a d:\Backup.rar d:\opomene.accdb", vbHide) <> 0 Then
MsgBox ("Uspješan backup!")
Else
MsgBox ("Greška pri izvršavanju backupa!")
End If
End Sub

Re: kako dodati datum 02.03.2016. u 22:35 · pre 129 meseci #24

Bio sam zauzet pa nisam mogao da se javim. Poznat mi je ovaj način pakovanja ali moj problem nije te prirode. Meni je potrebno da podatak koji izvozim bude upakovan a ne fajl koji je kreiran i koji se nalazi na nekoj lokaciji. Evo da pojasnim.
Imam tri tabele sa podacima koje eksportujem u folder odnosno podfolder koji se kreira pri eksportu.
DoCmd.TransferText acExportDelim, "tblObrazacEIS", "tblObrazac", "c:\Izvestaj\MojFolder\IzvestajA" & ".txt", , , 65001
DoCmd.TransferText acExportDelim, "tblObrazacAEIS", "tblObrazac", "c:\Izvestaj\MojFolder\IzvestajA1" & ".txt", , , 65001
DoCmd.TransferText acExportDelim, "tblObrazacA2EIS", "tblObrazac", "c:\Izvestaj\MojFolder\IzvestajA2" & ".txt", , , 65001
Dakle potrebno mi je da podfolder "MojFolder" u kome se nalaze podaci Izveštaj A, IzveštajA1 i IzveštajA2 budu automatski upakovani odmah pri exportu. Ne znam da li sam jasan ako je potrebno okačiću i primer. Pozdrav.

Potpis

I.L.

Re: kako dodati datum 14.06.2016. u 13:42 · pre 126 meseci #25

Obraćam se Sloju ili svko ko bi mogao da pomogne. Hteo bih da programsko rešenje koje je dao Sloj u ovoj temi prilagodim odnosno doradim
tako da se napravi folder i podfolder ne samo na nekoj od particija računara na kome se nalazi aplikacija već i na računaru koji je umrežen odnosno pariticiji koja je deljena, međutim to mi ne polazi za rukom. Na primer želeo bih da napravim folder i podfolder na ovoj adresi: "\\PC1\Documents\MojFolder\SubFolder\". "PC1" je naziv računara, a "Documents" je folder koji je deljen na tom računaru. Molim za odgovor. Na ovaj programski cod sam mislio:

Sub CreateSubDirectories(fullPath As String)
Dim str As String
Dim strArray As Variant
Dim i As Long
Dim basePath As String
Dim newPath As String
Dim strOutputFajl As String

str = fullPath
If Right$(str, 1) <> "\" Then
str = str & "\"
End If
strArray = Split(str, "\")
basePath = strArray(0) & "\"
For i = 1 To UBound(strArray) - 1
If Len(newPath) = 0 Then
newPath = basePath & newPath & strArray(i) & "\"
Else: newPath = newPath & strArray(i) & "\"
End If
If Not FolderExists(newPath) Then
MkDir newPath
End If
Next i

End Sub

Potpis

I.L.

Forum kao aplikacija na telefonu

Srodne teme