Ovo je kompletan kod
On pokupi fajlove u C:\.......\From_Fp i sasece ih tako da dobija fajlove u obliku ZA.dbf,Zb.dbf i ZC.dbf,a da napomenem da meni trebaju fajlovi u obliku
ZA_000.dbf,ZB_000.dbf,ZC_000.dbf
Code:
Dim putanja_source As String, putanja_dest As String
'==========================================
Dim tmp_RB As Integer, tmp_RB2 As Integer
Dim tmp_TX As String, tmp_TX_FINAL As String
Dim Ext_NAME As String
Dim PATH_FROM_FP As String, PATH_BGLUSCI As String
Dim koliko As Integer
Private Sub Command_Click()
koliko = File1.ListCount - 1
For i = 0 To koliko
PATH_FROM_FP = putanja_source & File1.List(0)
PATH_BGLUSCI = putanja_dest & skrati(File1.List(0))
FileCopy PATH_FROM_FP, PATH_BGLUSCI
Kill PATH_FROM_FP
File1.Refresh
Next i
End Sub
Private Sub Command1_Click(Index As Integer)
End Sub
Private Sub Command2_Click()
Open ("C:\MetaLine\Exch\Lnk\To_FP\CMD_1.txt") For Output As #1
Print #1, Text1.Text 'ukoliko ti se texbox zove text1 ako ne ti zameni kako se zove
Close #1
MsgBox ("Sacekajte 1 minut,zahtev je prosledjen")
End Sub
Private Sub Form_Load()
settings
File1.Path = putanja_source
File1.Pattern = "*.dbf"
End Sub
Sub settings()
putanja_source = "C:\MetaLine\Exch\Lnk\FROM_FP\"
putanja_dest = "E:\BGLUSCI\"
End Sub
Function skrati(File_Name As String)
Ext_NAME = Right(File_Name, 2)
tmp_RB = InStr(1, File_Name, "_", 0)
tmp_TX = Right(File_Name, Len(File_Name) - tmp_RB)
tmp_RB2 = InStr(1, tmp_TX, "_", 0)
tmp_TX_FINAL = Left(File_Name, tmp_RB + tmp_RB2)
skrati = tmp_TX_FINAL & Ext_NAME
End Function