< návrat zpět
MS Excel
Téma: Dir$ a array? 
Zaslal/a Yerome1 29.1.2015 22:29
Ahoj,
potreboval bych poradit jestli by nekdo nevedel :)
pouzivam funkci která mi vrací název souboru nebo adresare na zaklade casti nazvu.(funkce je níže) pouzivam ji na nalezeni souboru a pak jeho zkopirovani pres "filecopy" coz mi funguje jak má, ale potreboval bych poradit jak si vyjet seznam souboru a zkopirovat je do jine slozky.
Netusí prosím někdo? Díky :)
Function FindFilename$(FirstPart$, DirWhere$)
Dim sw1&, Filename$
Do
If sw1 = 0 Then
sw1 = 1
Filename = Dir$(DirWhere, vbDirectory)
Else
Filename = Dir$()
End If
If Filename = "" Then Exit Do
If FirstPart = Left$(Filename, Len(FirstPart)) Then
FindFilename = Filename
Exit Function
End If
Loop
'' MsgBox "Nic nenalezeno"
End Function
Yerome1(30.1.2015 22:47)#023367 
Tak nakonec necekane to slo vyresit pouze pres dir() :)
Coz se mi dost ulevilo protoze ukladani do arraye jsem nepochopil :/
Pokud se nekdo alespon zamyslel nad mym problemem tak dekuju :)
Sub soubory()
Dim arr As String
Path = "C:\test"
file = Dir(Path & "*.pdf")
Do Until file = ""
arr = file
FileCopy Path & arr, "C:\test2\" & arr
file = Dir()
Loop
End Sub
citovatkp57(30.1.2015 23:44)#023368 No vidíš, že to jde!
Případně taky:
Sub soubory_2()
Dim Path_1 As String, Path_2 As String
Path_1 = "C:\test1"
Path_2 = "C:\test2"
Shell "xcopy " & Path_1 & "\*.pdf " & Path_2
End Sub
citovatYerome1(31.1.2015 20:20)#023377 Tak o xcopy jsem nevedel :) diky za sdileni :)
citovat
RSS nejnovější články