Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Acoperire gol extrior intre termo...

Intreprindere individuala fara ac...

Marci Biciclete - recomandari

Lipsa Tensiune pe o Faza, bransam...
 Recomandare bicicleta copil 5 ani.

Recomandare kit automat acces usa

[email][nvidia] Your GeForce NOW ...

Site nesigur
 Baghetele ornamentale intre foile...

O recomandare pentru o camera ful...

Pareri magazin online quickmobile?

Unde gasesc banane albastre?
 Despre compania de aministrare Sq...

Durere taietura deget dupa 2 luni

Dalți gravare lemn

Didgeridoo
 

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,135
  • Î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,419
  • Î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,135
  • Î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,135
  • Î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,135
  • Î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

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

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