Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Cum sterg mails din Promotions

Vanzare cumparare fara transfer b...

Receptie ciudata, in functie de t...

Dupa 20 ani de facultate, am uita...
 Mobile.de ofera imprumut de bani ...

problema test grila

Digi24 a disparut de pe TV Lg

Drept de proprietate intelectuala...
 Jante noi shitbox

Trinitas TV 4K

Dacia 1316 cu 6 usi ...

Frecventa modificata radio
 Un nou pericol pt batrani

Ar trebui sa vindem imobiliarele ...

Dupa renuntarea la aparat dentar

pelerinaj in Balcik
 

cod pentru copierea unui fisier din retea?

- - - - -
  • Please log in to reply
6 replies to this topic

#1
dem3ntor

dem3ntor

    Senior Member

  • Grup: Senior Members
  • Posts: 2,138
  • Înscris: 16.04.2007
Salut!
de curand m-am lovit de o problema, copierea unui folder de pe un drive mapat, local. As vrea sa fac un programel in care sa am un buton "Copiere" si o bara de progres. Problema este ca nu prea stiu de unde sa incep si unde sa termin. Daca stiti cateva surse de unde m-as putea inspira? am gasit un exemplu de bara de progres, dar nu merge codul sursa (sper sa ma exprim corect).

Multumesc!

Attached Files



#2
MarianG

MarianG

    be that as it may

  • Grup: Moderators
  • Posts: 31,444
  • Înscris: 10.08.2005
prima data verifici existenta fisierului

http://www.google.ro...VB copy network

Edited by MarianG, 17 November 2010 - 09:21.


#3
dem3ntor

dem3ntor

    Senior Member

  • Grup: Senior Members
  • Posts: 2,138
  • Înscris: 16.04.2007
am facut urmatorul programel - atasat
l-am compilat, dar cand il rulez "Project1 has encountered a problem and need to close..." :(
care sa fie problema?
si inca o intrebare, vreau sa dupa apasarea butonului de actualizare sa apara un dialog box "incepe actualizarea" si un buton "OK"

Multumesc!

Attached Files



#4
Sandstorm

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
Am compilat si eu fisierul si l-am rulat.
Intr-adevar, da eroare.

AppName: project1.exe AppVer: 1.0.0.0 ModName: kernel32.dll
ModVer: 5.1.2600.5512 Offset: 00009e22

Nu inteleg ceva.
Tu vrei sa faci copy-paste dintr-un folder in altul?
Daca da, exista un cod mai simplu decat cel pus de tine.

Am rezolvat-o.
Cand dai File - Make Project1.exe - apasa pe butonul options.
Apasa pe tab-ul Compile si bifeaza optiunea Compile to P-Code.
Ti-am aranjat codul, ti-am pus error traping si ti-am pus un label.
Cand incepi actualizarea, afiseaza un text.
Cand o termina, afiseaza alt text.

Edited by Sandstorm, 17 November 2010 - 16:10.


#5
dem3ntor

dem3ntor

    Senior Member

  • Grup: Senior Members
  • Posts: 2,138
  • Înscris: 16.04.2007

View PostSandstorm, on 17th November 2010, 16:03, said:

Am compilat si eu fisierul si l-am rulat.
.....

da, vreau sa copii dintr-un folder in altul. folderul principal se afla pe un drive mapat si celalalt local. vreau sa il folosesc pentru a updata foldere de pe un server.

este perfect ceea ce mi-ai reparat :) (cheers)

Cum scap de mesajul de suprascriere dat de win?

dupa ce m=am jucat cu el, m-am lovit de o alta problema :(. Acest programel va fi pe 20-30 de calc, unele este posibil sa nu aibe mapat drive-ul respectiv. vreau ca la inceputul secventei sa mapeze o un share cu user si parola. am citit ca pentru mapare trebuie sa folosesc WNetAddConnection, dar nu ma prea descurc.
am gasit un exemplu de mapare, dar nu stiu cum sa il modific astfel incat sa nu mai apara casuta de dialog ci sa introduc eu litera, adresa, user-ul si parola.

Option Explicit

Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long

Private Sub cmdMapDrive_Click()
Dim drive_letter As String
Dim share_name As String
Dim password As String

    lblResult.Caption = "Working..."
    Screen.MousePointer = vbHourglass
    DoEvents

    drive_letter = txtDriveLetter.Text
    If InStr(drive_letter, ":") = 0 _
        Then drive_letter = drive_letter & ":"
    share_name = txtShareName.Text
    password = txtPassword.Text

    If WNetAddConnection(share_name, password, _
        drive_letter) > 0 _
    Then
        lblResult.Caption = "Error mapping drive"
    Else
        lblResult.Caption = "Drive mapped"
    End If
    
    Screen.MousePointer = vbDefault
End Sub


Multumesc!

Edited by dem3ntor, 18 November 2010 - 09:46.


#6
Sandstorm

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
Eu nu vad nicaieri nicio casuta de dialog.
Peste tot ai textbox-uri in care sa scrii tu datele dorite.
Din pacate nu am cum sa testez codul tau :(

#7
dem3ntor

dem3ntor

    Senior Member

  • Grup: Senior Members
  • Posts: 2,138
  • Înscris: 16.04.2007
este la fel ca si cel atasat de tine. problema este ca trebuie sa introduc si username nu doar parola.
si nu vreau le introduc prin casute de dialog, ci sa le introduc la inceputul secventei de copiere pe care mi-ai corectat-o
sa fac o mica "diagrama":
1. pornesc programul de copiere
2. fac automat maparea (userul care foloseste programelul nu introduce nimic, doar ii spune "s-a mapat sau nu")
3 apas butonul de copiere (actualizare).

http://www.vbforums....ad.php?t=373004
aici este o secventa cu username si parola dar nu ma descurc sa o "descifrez"

Attached Files


Edited by dem3ntor, 18 November 2010 - 10:34.


Anunturi

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate