flyt alle filer/mapper fra et sted til et andet sted

du kan bruge windows API kaldet MoveFile (MoveFileEx for W2K)

I det eks. du henviser til vises CopyFile (CopyFileEx for W2K) og principielt virker MoveFile på samme måde.

Hej sjensen
Jeg er ny i VB, Kunne du ikke smide lidt kode med og du har 250 point.

Det ville jeg gerne men VB er heller ikke min stærke side (jeg er til Delphi) så jeg er ikke p.t. istand til at give dig en kode der virker. Men jeg skal prøve at finde ud af noget.

Du kan gøre det på 2 måder.
1.  Bruge VB\'s FileCopy og Kill eller Name
1\'eren kræver at du løber igennem alle underbiblioteker.

2.  FileSystemObject og bruge MoveFolder
Fra MSDN:
Sub MoveAFolder(Drivespec)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  fso.MoveFolder Drivespec, TilFolderNavn
End Sub

Kan jeg bruge dit 2. eks. i VB?
Det ligner vbscript til ASP eller lign.

Jeg prøvede men fik fejl i 3.linie

Private Sub Command2_Click()
Dim filesys
Set filesys = CreateObject(\"Scripting.FileSystemObject\")
If filesys.FolderExists(\"d:\\vb-menu\\\") Then
  filesys.MoveFolder \"d:\\vb-menu\\\", \"f:\\vb-menu\\\"
End If
End Sub

Du skal lige huske at sætte Menu: Projects - References - Microsoft Scripting Runtime
Ellers vil det ikke virke.

Menu -> Project -> References -> Microsoft Scripting Runtime skal markeres.

Public Sub MoveFilder(SourcePath As String, DestinationPath As String)
  Dim fso As New FileSystemObject
  If fso.FolderExists(SourcePath) Then fso.MoveFolder SourcePath, DestinationPath
End Sub

Ups, jeg glemte lige...

Set fso = Nothing

lige inden End Sub

Hvordan kan du afvise mit svar, når det er det du vil bruge....????

Virker det ikke eller hva´ ?

Jeg ville gerne give jer begge (irve, winkill) point, men jeg kan ikke få skidtet til at virke. jeg er ikke i tvivl om at det er mig der laver ged i den, men hvad?

Jeg har sat flueben i \"Microsoft Scripting Runtime\"

Jeg bruger følgende kode:

Private Sub Command2_Click()
Dim filesys
Set filesys = CreateObject(\"Scripting.FileSystemObject\")
If filesys.FolderExists(\"D:\\vb-menu\\\") Then
  filesys.MoveFolder \"D:\\vb-menu\", \"F:\\vb-menu\\\"
End If
filesys = Nothing
End Sub

Hvad gør jeg galt ??

Jeg glemte fejlen

Runtime error 70
Permission denied

Med udgangspunkt i den kode du har postet...

Private Sub Command2_Click()
Dim filesys
Set filesys = CreateObject(\"Scripting.FileSystemObject\")
If filesys.FolderExists(\"D:\\vb-menu\\\") Then
  filesys.MoveFolder \"D:\\vb-menu\", \"F:\\\"
End If
filesys = Nothing
End Sub

;-)

Public Sub MoveFilder(SourcePath As String, DestinationPath As String)
  Dim fso As New FileSystemObject
  If Not fso.FolderExists(SourcePath) Then MsgBox \"Kilde mappen \"\"\" & SourcePath & \"\"\" eksisterer ikke.\" : Set fso = Nothing : Exit Sub
  If Not fso.FolderExists(DestinationPath) Then MsgBox \"Destinations mappen \"\"\" & DestinationPath & \"\"\" eksisterer ikke.\" : Set fso = Nothing : Exit Sub
  fso.MoveFolder SourcePath, DestinationPath
  Set fso = Nothing
End Sub

Jeg får stadigvæk samme fejl :-)
Er det noget med Win2000 ?

Følgende virker på min Windows 2000 - både på Proffesional og på Advanced Server.

Private Sub Form_Load()
    MkDir(\"c:\\test\")
    MkDir(\"c:\\til\")
    Call MoveFolder(\"c:\\test\", \"c:\\til\\test\")
End Sub

Public Sub MoveFolder(SourcePath As String, DestinationPath As String)
  Dim fso
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  If Not fso.FolderExists(SourcePath) Then MsgBox \"Kilde mappen \"\"\" & SourcePath & \"\"\" eksisterer ikke.\": Set fso = Nothing: Exit Sub
  fso.MoveFolder SourcePath, DestinationPath
  Set fso = Nothing
End Sub

Hvis det ikke virker så check hvilken slags drev dit f: drev er. Det skulle helst hverken være CD, DVD, gramofon ;-) eller netværksdrev.

Jeg har accepteret jer begge, så I må dele de point der er. Winkill - dit script virker efter det jeg har formuleret i mit spørgsmå, men mit problem er at jeg skal kopiere en bestemt mappe fra en WinNT server til brugerens maskine. Samtidigt skal mappen være væk, så ikke andre kan rette i den, mens den bliver brugt.
Ligeledes skal der oprettes en kopi af mappen et andet sted, mens brugeren arbejder. Når brugeren er færdig med sit arbejde skal mappen tilbage til Serveren og sikkerhedskopien skal slettes.
Dette mente jeg var en lille let ting :-)

Hvis I kan løse dette er der flere point

Jeg ser lige på det...

Du er sikker på du har rettigheder på både D og F, eller at den bruger der kører det har?

Ja - rettighederne er på plads