[es] - kako dodati datum

ilekicika
dipl pravnik

Član broj: 257869
Poruke: 34
*.dynamic.isp.telekom.rs.

Profil

^{18.01.2016. u 02:11 - pre 100 meseci}

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.

I.L.

Odgovor na temu

blingaro
Igor Malinkov
Uprava prihoda
Beograd

Član broj: 187756
Poruke: 81
*.3gnet.mts.telekom.rs.

+1 Profil

Re: kako dodati datum

^{19.01.2016. u 19:41 - pre 100 meseci}

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.

Prikačeni fajlovi

RarTG.bat - 0.62k

RarPopisAkataTG.mdb - 196k

Odgovor na temu

blingaro
Igor Malinkov
Uprava prihoda
Beograd

Član broj: 187756
Poruke: 81
95.180.53.*

+1 Profil

Re: kako dodati datum

^{20.01.2016. u 15:51 - pre 100 meseci}

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

Odgovor na temu

ilekicika
dipl pravnik

Član broj: 257869
Poruke: 34
*.dynamic.isp.telekom.rs.

Profil

Re: kako dodati datum

^{02.03.2016. u 21:35 - pre 98 meseci}

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.

I.L.

Odgovor na temu

ilekicika
dipl pravnik

Član broj: 257869
Poruke: 34
*.dynamic.sbb.rs.

Profil

Re: kako dodati datum

^{14.06.2016. u 12:42 - pre 95 meseci}

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

_{[Ovu poruku je menjao ilekicika dana 15.06.2016. u 23:04 GMT+1]}

_{[Ovu poruku je menjao ilekicika dana 15.06.2016. u 23:05 GMT+1]}

_{[Ovu poruku je menjao ilekicika dana 15.06.2016. u 23:07 GMT+1]}

I.L.

Odgovor na temu