Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Files transfers server<>client
4ndrzej1
<4ndrzej1>




Typ: neutral
Postów: 3
Zarejestrowany: Aug 2004
Files transfers server<>client

Prosze o pomoc
Znalazlem ciekawy kod zrodlowy (nie mojego autorstwa), ale nie wiem jak w nim zmienic/dodac pewna "funkcje".
Mianowicie chodzi mi o mozliwosc "podgladu" wszystkich plikow (w tym systemowych i ukrytych).
Co do tej "pewnej funkcji" chodzi mi o to, zeby zrobic taki button "upload". Po nacisnieciu ktorego otwieraloby sie okienko (mini. explorer) mojego dysku, dzieki ktoremu mogloby sie wgrywac pliki na ten zdalny serwer.
Kod źródłowy jest TUTAJ
Jeszcze raz prosze o pomoc.

[Post edytowany dnia 16-08-2004 16:55 przez 4ndrzej1]

16-08-2004 13:54
Pokaż profil 4ndrzej1  Wyślij email do 4ndrzej1        5772195
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Jeżeli dobrze rozumiem, to chcesz wydłubać wszystkie pliki, jakie są w danym folderze? Jeśli tak to wstaw kontrolkę FileListBox i wpisz:

function Pliki(Folder as string) as string
with file1
file1.system=true
file1.readonly=true
[...]
file1.path=folder
dim I as integer
for i=0 to file1.listcount-1
pliki=pliki & file1.list(i) & ";"
next
pliki=left(pliki,len(pliki)-1)
end with


'Użycie

dim I as integer
dim Pliks as variant
pliks=split(pliki("C:\",";"
for i=0 to ubound(pliks)
transferplikow "C:\" & pliks(i),pliks(i)
next



_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

16-08-2004 14:51
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
4ndrzej1
<4ndrzej1>




Typ: neutral
Postów: 3
Zarejestrowany: Aug 2004

Nie. W tym zrodle jest opcja "File Control", dzieki ktorej mozna sciagac pliki z serwera, ale nie wszystkie. Chcialbym aby mozna bylo rowniez sciagac te ukryte i systemowe, poniewaz program ich nie widzi. Nie wiem co trzeba w kodzie zmienic.

[Post edytowany dnia 16-08-2004 14:58 przez 4ndrzej1]

16-08-2004 14:58
Pokaż profil 4ndrzej1  Wyślij email do 4ndrzej1        5772195
bisiek




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

Przed ściąganiem na komputerze z którego ściągasz wpisz w kodzie:

atrybuty=getAttr("Plik"
SetAttr "Plik",0
'Ściąganie
SetAttr "Plik",atrybuty


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

16-08-2004 16:04
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
4ndrzej1
<4ndrzej1>




Typ: neutral
Postów: 3
Zarejestrowany: Aug 2004

Juz pomogł mi mikmas wystarczy w module (modCore) zmienic wytluszczony fragment:

Private Function FileCtrls(Packet As gtPacket) As gtPacket
'Deal with basic file controls
    On Error Resume Next
    Dim strPath    As String
    Dim strFile    As String
    Dim strReturn  As String
    Dim lngOption  As Long
   
    Select Case Packet.FunctionCode
       
        Case 510 'Dir List
            strPath = Packet.ExtraData
            If Not Right$(strPath, 1) = "" Then strPath = strPath & ""
           
          strFile = Dir$(strPath, vbDirectory)


na coś takiego:

strFile = Dir$(strPath, vbDirectory + vbSystem + vbHidden)


16-08-2004 18:50
Pokaż profil 4ndrzej1  Wyślij email do 4ndrzej1        5772195
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1