CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede accessconsult Nybegynder
08. november 2013 - 09:26 Der er 7 kommentarer og
1 løsning

Makro eller VBA kode der tjekker om csv-fil findes i mappe

Jeg har et Access program som eksporterer en CSV-fil til en given mappe.
Efterfølgende skal et økonomisystem importere data fra CSV-filen.
Hvis importen lykkedes slettes CSV-filen.
Hvis den ikke lykkedes forbliver filen i mappen. Hvis den forbliver i mappen må Access ikke lave en ny eksport.
Jeg har behov for en makro eller VBA kode, som fortæller om filen eksisterer i mappen.
Avatar billede hugopedersen Nybegynder
08. november 2013 - 10:07 #1
Hvis du Googler  vba file exists  så får du masser at se på,
men du også prøve at Google  Createobject("Scripting.FileSystemObject").FolderExists  da det er den funktion du bør bruge
Avatar billede minimadsens Nybegynder
08. november 2013 - 11:33 #2
Option Explicit
DIM fso   
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists("STI_HER")) Then
  WScript.Echo("Fandt filen!")
  WScript.Quit()
Else
  WScript.Echo("Filen kunne ikke findes!")
End If

WScript.Quit()


------
1. Kopier overstående.

2. Ret "STI_HER" til den aktuelle sti, for den fil du gerne vil tjekke.

3. Gem det i en tekst fil, omdøb den fra .txt til .vbs
Avatar billede minimadsens Nybegynder
08. november 2013 - 11:34 #3
Når du retter "STI_HER" skal du huske at lade de to "" blive.
Avatar billede kabbak Professor
08. november 2013 - 17:01 #4
Public Function FilExist()
If Dir("C:\test\data.csv") <> "" Then
MsgBox " filen eksisterer"
Else
MsgBox " filen eksisterer ikke "
End If
End Function
Avatar billede accessconsult Nybegynder
09. november 2013 - 13:36 #5
Til Kabbak:
Jeg vil gerne sætte koden ind, som en betingelse i en makro. Det vil sige at hvis filen ikke eksisterer, så skal den ikke køre en forespørgsel, som danner en ny csv-fil.
Jeg kan ikke se at jeg kan sætte en VBA-kode ind, som en betingelse i en makro.
Avatar billede kabbak Professor
10. november 2013 - 21:25 #6
det kan gøres på 2 måder

Public Function FilExist() As Boolean
If Dir("C:\test\data.csv") <> "" Then' fast navn
FilExist = True
Else
FilExist = False
End Function

Public Function FilExist(StiOgNavn) As Boolean
If Dir(StiOgNavn) <> "" Then' variabelt navn, som kommer med kaldet
FilExist = True
Else
FilExist = False
End Function
Avatar billede accessconsult Nybegynder
27. november 2013 - 07:58 #7
Tusind tak for hjælpen. Det virker.
Men hvordan giver jeg point til jer?
Avatar billede kabbak Professor
27. november 2013 - 14:56 #8
Jeg ligger lige et svar ;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
Filter tal Af hlnviv i Access 10 17/12/202413:35 18/12/202412:31
Søgeknap Af erlandsen i Access 3 02/12/202415:32 02/12/202417:04
Hændelse ved tryk på knap Af erlandsen i Access 1 01/12/202413:51 01/12/202413:54
Vis Valuta og Pris i SQL Af per2edb i Access 7 28/11/202411:48 28/11/202417:31
Kan en kombinationsbox formateres om til en text box og omvendt Af per2edb i Access 3 21/11/202418:03 22/11/202411:38
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:03 Fjern "Seneste" - "Hurtig adgang" Fra Windows 11 - Hvordan ? Af Ikke-ekspert i Windows
23/1214:43 html <Input.. Danske bogstaver Af pjotre i Andet software
23/1214:35 Brænde musik fra usb drev til cd Af Caso i Andet hardware
21/1222:16 Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42 Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »


Premium
Teaser billede
Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer
Læs mere »
Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter
Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret
Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge
Se alle »
Computerworld
Teaser billede
Mord på it-profil truer San Franciscos status som tech-mekka: Byen er forvandlet til en zombie-by
Læs mere »
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR
Temu åbner stort varehus i Sverige og kan nu sende varer til danskerne endnu hurtigere: "Hvad vi frygtede, er sket"
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
Software-selskabernes prisstigninger får nu danske virksomheder til at søge mod open source
AI er et falmende buzzword: Lad mig fluks dele en god og en dårlig nyhed
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Cyberangreb bliver mere kostbare: Er du forberedt?
Læs mere »
Sikkerhed uden grænser: Cisco Hypershield
Sådan gør du: Elektronisk dokumentudveksling i praksis
Beskyt virksomheden mod trusler – og hold ressourceforbruget nede
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »