Processbar en versnellen upload

[jan excel]

Beste snb,

bedankt voor je reactie en bereidwilligheid, echter helaas werkt de laatste script ook niet.
Maakt wel bestandsnaam maar bij de functie Kill "e:\CSV\*.csv" gaat het fout.

groet,
Jan

 

[snb]

Dan gaan we het zo doen:

Sub M_snb()
   shell "cmd /c copy C:\csv\*.csv C:\data_barsttest.csv",0
   do
     doevents
   loop until Dir("C:\data_barsttest.csv")<>""

   do
     doevents
   loop until filelen("C:\data_barsttest.csv")>0

   kill "C:\CSV\*.csv"
End sub

 

[jan excel]

Hoi SNB,

Tot mijn spijt moet ik melden dat het nog blijvenn hangen bij Kill "e:\csv\*.csv".

Groet,
Jan

 

[snb]

Plaats de code die je gebruikt, want je hebt hem blijkbaar aangepast.....

 

[jan excel]

Hoi SNB,

De schijf letter is alleen veranderd naar E.
Onderstaand de code:

Sub M_snb()
Shell "cmd /c copy E:\csv\*.csv E:\data_barsttest.csv", 0
Do
DoEvents
Loop Until Dir("E:\data_barsttest.csv") <> ""

Do
DoEvents
Loop Until FileLen("E:\data_barsttest.csv") > 0

Kill "E:\CSV\*.csv"
End Sub



Met bovenstaande code wordt wel data_barsttest.csv gemaakt echter csv betanden worden niet verwijderd, blijft hangen op Kill .....

groet,
Jan

 

[rebmog]

Welke foutmelding krijg je precies? Dit zou een rechtenkwestie kunnen zijn. Heb je wel rechten om bestanden in de root van E: te mogen verwijderen?

 

[jan excel]

hOI snb en Rebhog,

Vanavond nog even aan het testen geweest,de scipt van snb doet het nu goed met vermelding van E-schijf.
Eerst deed deze het niet , maar na testen met een andere bestand deed het wel.

Echter alleen loopt de script bij vermelding c-schijf vast . De opdracht symbolen vervagen in licht grijs en blokkeren.
Als ik dan op afsluit kruisje klik verschijnt popup met de vraag of ik de gegevens wil opslaan en door op annuleren te klikken is blokkade lint weer hersteld.
Er is op meerdere computers getest met de script c-schijf blijft het problemen geven.

onderstaand de script die wel werkt en die niet werkt.

Script die wel werkt:

Sub datatest_E()


 

   Shell "cmd /c copy E:\csv\*.csv E:\data_barsttest.csv", 0
   Do
     DoEvents
   Loop Until Dir("E:\data_barsttest.csv") <> ""

   Do
     DoEvents
   Loop Until FileLen("E:\data_barsttest.csv") > 0

   Kill "E:\CSV\*.csv"

Script die niet werkt:

  Shell "cmd /c copy C:\csv\*.csv C:\data_barsttest.csv", 0
   Do
     DoEvents
   Loop Until Dir("C:\data_barsttest.csv") <> ""

   Do
     DoEvents
   Loop Until FileLen("C:\data_barsttest.csv") > 0

   Kill "C:\CSV\*.csv"

 

[jan excel]

hOI snb en Rebhog,

Vanavond nog even aan het testen geweest,de scipt van snb doet het nu goed bij vermelding van E-schijf.
Eerst deed deze het niet , maar na testen met een andere bestand deed het wel.

Echter alleen loopt de script bij vermelding c-schijf vast . De opdracht symbolen vervagen in licht grijs en blokkeren.
Als ik dan op afsluit kruisje klik verschijnt popup met de vraag of ik de gegevens wil opslaan en door op annuleren te klikken is blokkade op de lint weer hersteld.
Er is op meerdere computers getest met de script c-schijf blijft dezelfde problemen geven.
Ook zijn de folder en bestanden indentiek op c-schijf en e-schijf.


onderstaand de script die wel werkt en die niet werkt.

Script die wel werkt:

Sub datatest_E()


 

   Shell "cmd /c copy E:\csv\*.csv E:\data_barsttest.csv", 0
   Do
     DoEvents
   Loop Until Dir("E:\data_barsttest.csv") <> ""

   Do
     DoEvents
   Loop Until FileLen("E:\data_barsttest.csv") > 0

   Kill "E:\CSV\*.csv"

Script die niet werkt:

  Shell "cmd /c copy C:\csv\*.csv C:\data_barsttest.csv", 0
   Do
     DoEvents
   Loop Until Dir("C:\data_barsttest.csv") <> ""

   Do
     DoEvents
   Loop Until FileLen("C:\data_barsttest.csv") > 0

   Kill "C:\CSV\*.csv"

C-schijf heeft wel schrijfbevoegdheid.

Weten jullie de oorzaak ?? Ben het spoor helemaal bijster en het dient juist te werken met de c-schijf.

M.v.g.
Jan E.

 

[rebmog]

Zou nog steeds een rechtenkwestie kunnen zijn. Probeer Excel eens als administrator op te starten (rechtsklik op snelkoppeling van Excel en dan bij Geavanceerd 'als administrator uitvoeren' aanvinken). Open vervolgens het bestand en start dan de macro nog eens.

 

[jan excel]

Hoi Rebmog en SNB,
Het werkt, na opstarten als administrator.
Alleen op root c lukt niet maar als ik een folder aanmaak waar het bestand naar toe kan schrijven wel.

Rebmog bedankt voor de tip en snb voor het script.

Zal morgen als het op mijn werkplek ook functioneert deze topic op opgelost zetten.

groet,
Jan E

 

[jan excel]

Hoi snb en Rebmog,

Onderstaande code werkt naar behoren echter de bestandsnaam data_barsttest.csv wordt niet overschreven als deze al bestaat van een vorige aanmaak.
Als ik het bestand verwijderen maakt het wel een nieuwe bestand data_barsttest.csv.
Weet iemand van jullie hoe dit op te lossen.

Sub datatest_E()


 

   Shell "cmd /c copy E:\csv\*.csv E:\data_barsttest.csv", 0
   Do
     DoEvents
   Loop Until Dir("E:\data_barsttest.csv") <> ""

   Do
     DoEvents
   Loop Until FileLen("E:\data_barsttest.csv") > 0

   Kill "E:\CSV\*.csv"

groet,
Jan E

 

[rebmog]

Bijvoorbeeld door eerst te checken of dit bestand bestaat en daarna dit bestand te verwijderen. Iets als:

If Dir("E:\data_barsttest.csv") <> "" Then Kill "E:\data_barsttest.csv"

 

[jan excel]

Hoi snb en rebmog,

Bedankt, getest en werkt !

Groet,
Jan E