< návrat zpět

MS Excel


Téma: Dir$ a array? rss

Zaslal/a 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

Zaslat odpověď >

#023367
avatar
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
citovat
#023368
avatar
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
citovat
#023377
avatar
Tak o xcopy jsem nevedel :) diky za sdileni :)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09