Dzięki bardzo za pomoc i przepraszam ,ale nic nie przychodziło mi na myśl
Pozdrawiam
napisał: Trebor postów: 1209
umieszczony: 18 lutego 2012 18:09
A gdzie Twoja propozycja kodu?
Sub pliki() Dim spis(), plik As String, i As Integer, sciezka AsString
sciezka = "C:\Documents and Settings\Admin\Pulpit\Grafika\"
plik = Dir(sciezka & "*.jpg")
DoWhile plik <> ""
i = i + 1 ReDim Preserve spis(1 To i)
spis(i) = plik
plik = Dir Loop
Arkusz1.ListBox1.Clear For i = 1 To i
plik = Dir(sciezka & Left(spis(i), Len(spis(i)) - 4) & ".swp") If plik = "" Then Arkusz1.ListBox1.AddItem spis(i) Next i EndSub
napisał: Blaszka_P postów: 112
umieszczony: 18 lutego 2012 15:22
edytowany: 18 lutego 2012 15:24
Witam, mam pytanie jak najprościej zrobić porównanie plików w danym katalogu, chodzi o rozszerzenia plików
np. mam katalog "C:\Dane\" a w nim pliki z rozszerzeniem *.jpg i *.swp , każdy z plików na taką samą nazwę.
Chodzi mi o to ,że jeżeli w danym katalogu "C:\Dane\" ,któryś z plików np. "test.jpg" nie będzie miał swojego odpowiednika pliku "test.swp" to ma ten plik wstawić do ListBox
wstecz 1 dalej
otwarty rozpoczął: Blaszka_P
postów: 3
