Notifikationer

Markér alle som læst Log ud

aamodtod Nybegynder

28. juli 2002 - 20:19 Der er 3 kommentarer og
1 løsning

FSO: Gå igjennom alle txt filer i en mappe og skriv i annen TXT

Jeg har en mappe som ligger på følgene sted "c:\pib".
I denne mapppen motar jeg ca 100 txt filer, med forskjellige filnavn, man alle textfilene har samme format og alt er skrevet på en linje:
Gir Dere et eksmpel:

fil1.txt:
Ola;Normann;Osloveien 3;0506;Oslo
fil2.txt
Kari;Hansen;Stien 5;1400;ski

Og sånn forsetter det:

Jeg trenger en kode ("FSO"), til å gå igjennom alle mine text filer i mappen "pib" og skrive den øverste linjen i alle textfilene i en ny textfil som ligger her "c:\pib\data\datagrunnlag.txt.

Datagrunnlag.txt skal da se slik ut
Ola;Normann;Osloveien 3;0506;Oslo
Kari;Hansen;Stien 5;1400;ski

Når dette er gjort vil jeg flytte alle filene i mappen "pib" til følgene sted "c:\pib\old"

Er det noen som vil lage denne koden for meg?

Hilsen

Odd

Synes godt om

kedde65 Praktikant

28. juli 2002 - 20:36 #1

Giv mig lige 10 minutter så har du den.

VH CK

Synes godt om

aamodtod Nybegynder

28. juli 2002 - 20:41 #2

Synes godt om

kedde65 Praktikant

28. juli 2002 - 20:45 #3

Her kommer den så

Private Sub Command1_Click()
Dim fso As FileSystemObject, dest As TextStream, sourceDir As Folder, fil As File
Set fso = New FileSystemObject

Set dest = fso.GetFile("C:\pib\data\datagrundlag.txt").OpenAsTextStream(ForAppending)

Set sourceDir = fso.GetFolder("C:\pib\")

For Each fil In sourceDir.Files
dest.WriteLine fil.OpenAsTextStream(ForReading).ReadLine
fil.Move "c:\pib\old\"
Next

Set dest = Nothing
Set sourceDir = Nothing
Set fso = Nothing
End Sub

VH CK

Synes godt om

aamodtod Nybegynder

28. juli 2002 - 20:47 #4

Det fungerte, akkurat som jeg ønsket her er dine Point.
Takk for hjelpen

MVH
Odd

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS