Avatar billede jtr2 Nybegynder
17. februar 2006 - 13:40 Der er 5 kommentarer og
1 løsning

Flyt fil ved hjælp af textbox

Jeg skal have flyttet en fil fra punkt a til b ved hjælp af en textbox da stien ikke er den samme på alle OS

Har prøvet med:

FileCopy "C:\a.txt", Text1.Text
Og
Shell ("move C:\a.txt"), Text1.Text
Men den flytter ikke filen
Avatar billede innercitydk Nybegynder
17. februar 2006 - 14:18 #1
Du kan ikke flytte text på den måde du prøver på. Du skal lave en streamwriter og skrive til/generere textfilen med denne istedet:

using System;
using System.IO;

namespace FilDemo
{
    /// <summary>
    /// Summary description for Class1.
    /// </summary>
    class Class1
    {
        static void Main()
        {
            StreamWriter Stream = null;
            String UdFil = "c:\\demo.txt";
            try
            {
                Stream = new StreamWriter(UdFil);
                Stream.WriteLine(Text1.Text);
            }
            catch (Exception e)
            {
                MessageBox.Show("Fejl i sti" + e.ToString());
            }
            finally
            {
            if (Stream != null)
            Stream.Close();
            }
        }
    }   
   
}

Vh Nicki
Avatar billede jtr2 Nybegynder
17. februar 2006 - 14:55 #2
Jeg vil ikke flytte text for en text fil over i en anden text fil, med kopier en text fil fra C:\ til den sti som står i Text1.Text
Avatar billede tjp Mester
17. februar 2006 - 14:57 #3
Måske kan dette link bruges:
http://blackbeltvb.com/free/shcopy.htm

Ellers kan man vel omskrive nedenstående fra:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/folder/movehere.asp

Private Const FOF_NOCONFIRMATION = &H10

Private Sub btnMoveHere_Click()
    Dim objShell  As Shell
    Dim objFolder As Folder

    Set objShell = New Shell
    Set objFolder = objShell.NameSpace("C:\WINDOWS")

    If (Not objFolder Is Nothing) Then
        objFolder.MoveHere "c:\temp.txt", FOF_NOCONFIRMATION
    End If

    Set objFolder = Nothing
    Set objShell = Nothing
End Sub
Avatar billede innercitydk Nybegynder
17. februar 2006 - 15:56 #4
ahh ok. jeg er vist ikke helt vågen ;)
Avatar billede sorenstrom Nybegynder
17. februar 2006 - 16:41 #5
Jeg har oprettet en form, hvor jeg har en tekstboks og en knap.
I tekstboksen har jeg skrevet: C:\TEST\X.BAT
Dernæst har jeg kopieret hjælpeteksten for FileCopy ind under knappen

Private Sub Command1_Click()
  Dim SourceFile, DestinationFile
  SourceFile = "c:\x.bat"
  DestinationFile = Me.Text1
  FileCopy SourceFile, DestinationFile
End Sub
Hvis den oprindelige fil bagefter skal slettes, kan du jo bruge:
  kill SourceFile
Det virker.
/Søren
Avatar billede jtr2 Nybegynder
17. februar 2006 - 16:53 #6
Weeee :D

Det virker
Takker mange gange sorenstrom
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
Kurser inden for grundlæggende programmering

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