![]() |
Second Opinion
Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale. Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit. www.neurohope.ro |
ajutor incepator VBA
Last Updated: Sep 26 2015 14:22, Started by
Sorin16
, Aug 09 2015 12:54
·
0

#1
Posted 09 August 2015 - 12:54

Salut,
Sunt un incepator in ale VBA-ului si incerc sa invat prin realizarea de mici aplicatii. Astfel m-am lovit de o mica problema pentru urmatoarea aplicatie: Sub copy() Dim s As String Dim d As String s = "D:\VBA\Test\" d = "D:\VBA\Test 2\" FileCopy s, d End Sub In momentul cand rulez imi da eroarea 75 daca pun adresa folderelor fara ultima "\" si 76 daca pun "\". Ceva idei de debug? Merci, Sorin |
#2
Posted 09 August 2015 - 12:57

Tu pe cine vrei sa copii de ici colo ca n-ai specificat ! "Test" si "Test 2" sunt directoare si nu fisiere.
Edited by neagu_laurentiu, 09 August 2015 - 12:58. |
#3
Posted 09 August 2015 - 12:59

In folderul test am mai multe fisiere diverse dimensiuni si extensii. As vrea ca fisierele din test sa le copiez in test 2.
|
#4
Posted 09 August 2015 - 13:02

Si saracul calculator de unde sa stie daca nu-i spui ?
Daca le vrei pe toate, o idee ar fi: s = "D:\VBA\Test\*.*" |
#6
Posted 09 August 2015 - 13:44

Inseamna ca acea metoda nu stie de parcurga fisierele date sub acea masca.
Foloseste alta precum aceasta: https://msdn.microso...(v=vs.110).aspx |
#7
Posted 26 September 2015 - 14:22

In VBA se foloseste pentru iteratie prin fisiere, cu masca sau fara, functia DIR.
Dir cu argument seteaza calea spre fisiere si masca fisierelor. Intoarce sir gol "" daca nu mai gaseste nimic, altfel intoarce numele primului fisier gasit (neordonate) Dir fara argument sare la urmatorul fisier posibil, bazat pe calea si masca initiale. file=Dir(cale\masca) while file<>"" .........bla ...bla... file=Dir wend Edited by salex, 26 September 2015 - 14:24. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users