Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak to zrobic?
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
Jak to zrobic?

Chcę aby po uruchomieniu mojego programu, przenosił on pliki z napędu na którym sie znajduje na napęd wskazany przez użytkownika. Cała sprawa rozchodzi sie główni o literki napędów lub dysków.
pozdrawiam i czekam na info


_____________________________________________
May the Force be with you...

18-06-2004 18:14
Pokaż profil Dagged  Wyślij email do Dagged        1728948
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Literę dysku programu otrzymasz polecenieniem Left$(App.Path, 3) a wybór dysku za pomocą obiekut DriveListox. Wybrany dysk będzie się znajdować w właściwości Drive obiektu.


_____________________________________________
www.mob.abc.pl - moja strona o VB

18-06-2004 18:22
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
oki ....

Ale czy mógłbyś podać mi jakiś przykład (kawałeczek kodu)? Tak łopatologicznie


_____________________________________________
May the Force be with you...

18-06-2004 18:31
Pokaż profil Dagged  Wyślij email do Dagged        1728948
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Private Sub Drive1_Change()
z_dysku = Left$(App.Path, 3)
na_dysk = Drive1.Drive

'Kopiowanie
End Sub


_____________________________________________
www.mob.abc.pl - moja strona o VB

18-06-2004 19:04
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Jeżli problem polega na tym że nie wiesz jak skopiować pliki, podaję przykład jak skopiować pliki z głównego katalogu.

Private Sub Drive1_Change()
z_dysku = Left$(App.Path, 3)
na_dysk = Drive1.Drive & "\"

'Kopiowanie
'Wczytanie nazwy pierwszego pliku
a = Dir(z_dysku, vbArchive + vbHidden + vbReadOnly + vbSystem)
Do
If a = "" Then Exit Do
'Kopiowanie na inny dysk
FileCopy z_dysku & a, na_dysk & a
'Przekazywanie atrybutów pliku
SetAttr na_dysk & a, GetAttr(z_dysku & a)
'Pobieranie kolejnego pliku
a = Dir
DoEvents
Loop
MsgBox "Kopiowanie zakończone"
End Sub


_____________________________________________
www.mob.abc.pl - moja strona o VB

19-06-2004 08:42
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
Dzieki

Oto właśnie chodziło dzieki bardzo


_____________________________________________
May the Force be with you...

21-06-2004 09:57
Pokaż profil Dagged  Wyślij email do Dagged        1728948
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1