Avatar billede hoell Nybegynder
13. december 2007 - 09:11 Der er 5 kommentarer og
1 løsning

Flytte bibliotek i Visual Basic

Hej Jeg er helt på det rene med at man kan oprette et bibliotek med MKDIR, men hvor dan flytter man et bibliotek, med under biblioteker og mange forskellige filer?

Mvh Carsten
Avatar billede supertekst Ekspert
13. december 2007 - 10:51 #1
Evt. kopiere til ny placering - derefter slet oprindelige
Avatar billede supertekst Ekspert
13. december 2007 - 11:03 #2
Eller:

MoveFolder Method
       

Description

Moves one or more folders from one location to another.

Syntax

object.MoveFolder source, destination

The MoveFolder method syntax has these parts:

Part Description
object Required. Always the name of a FileSystemObject.
source Required. The path to the folder or folders to be moved. The source argument string can contain wildcard characters in the last path component only.
destination Required. The path where the folder or folders are to be moved. The destination argument can't contain wildcard characters.



Remarks

If source contains wildcards or destination ends with a path separator (\), it is assumed that destination specifies an existing folder in which to move the matching files. Otherwise, destination is assumed to be the name of a destination folder to create. In either case, three things can happen when an individual folder is moved:

If destination does not exist, the folder gets moved. This is the usual case.


If destination is an existing file, an error occurs.


If destination is a directory, an error occurs.
An error also occurs if a wildcard character that is used in source doesn't match any folders. The MoveFolder method stops on the first error it encounters. No attempt is made to roll back any changes made before the error occurs.

Important  This method allows moving folders between volumes only if supported by the operating system.
Avatar billede supertekst Ekspert
13. december 2007 - 11:14 #3
Eksempel:

Private Sub kopierMappe()
Const fraMappeNavn = "C:\glFilmappe"      'tilpasses
Const tilMappeNavn = "C:\nyFilMappe"      'tilpasses
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.moveFolder fraMappeNavn, tilMappeNavn

End Sub
Avatar billede supertekst Ekspert
28. december 2007 - 13:51 #4
Noget nyt?
Avatar billede hoell Nybegynder
14. januar 2008 - 14:39 #5
Beklager jeg ikke har fået svaret, men jeg har lige testet og det er det jeg manglede smider du et svar så er der points.

Endnu engang undskyld for det lange svar tid.

/Carsten
Avatar billede supertekst Ekspert
14. januar 2008 - 15:25 #6
Hej Carsten

Ok - vi skal jo blot have en afslutning på det...
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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