COPY KAI RENAME ΚΑΠΟΙΟΥ ΑΡΧΕΙΟΥ

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
brakos
Δημοσιεύσεις: 34
Εγγραφή: 27 Δεκ 2001 01:00
Τοποθεσία: Thessaloniki,Greece
Επικοινωνία:

COPY KAI RENAME ΚΑΠΟΙΟΥ ΑΡΧΕΙΟΥ

Δημοσίευση από brakos » 10 Ιούλ 2003 09:53

Πως μπορω πατωντας ενα commandbutton1 να γινεται :
1. μετονομασια ενος αρχειου (πχ απο test1.doc σε test2.doc)

και ενα commandbutton2
2. αντιγραφο με καποιο ονομα (πχ απο test1.doc σε testnew.doc κατι σαν backup ασφαλειας δηλαδη)

Θυμαμαι τις παλιες καλες εντολες της QuickBasic του στυλ shell "copy ...κλπ" αλλα δεν δουλευει
φυσικα. Περιμενω βοηθεια αν μπορειτε. Ευχαριστω παρα πολυ για το χρονο σας.

Άβαταρ μέλους
Bugman
Δημοσιεύσεις: 362
Εγγραφή: 01 Ιούλ 2003 20:39
Τοποθεσία: Πρέβεζα
Επικοινωνία:

COPY KAI RENAME ΚΑΠΟΙΟΥ ΑΡΧΕΙΟΥ

Δημοσίευση από Bugman » 01 Αύγ 2003 19:51

Renames a disk file, directory, or folder.

Syntax

Name oldpathname As newpathname

Για την αντιγραφή
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

CopyFile CDBox.filename, "C:\" + CDBox.FileTitle, 0

Άβαταρ μέλους
Bugman
Δημοσιεύσεις: 362
Εγγραφή: 01 Ιούλ 2003 20:39
Τοποθεσία: Πρέβεζα
Επικοινωνία:

COPY KAI RENAME ΚΑΠΟΙΟΥ ΑΡΧΕΙΟΥ

Δημοσίευση από Bugman » 01 Αύγ 2003 19:52

'in a form (Form1)
Private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Ret As Long
'set the graphics mode to persistent
Me.AutoRedraw = True
'print some text
Me.Print "Click the form to abort the filecopy"
'show the form
Me.Show
'start copying
Ret = CopyFileEx("c:\verybigfile.ext", "c:\copy.ext", AddressOf CopyProgressRoutine, ByVal 0&, bCancel, COPY_FILE_RESTARTABLE)
'show some text
Me.Print "Filecopy completed " + IIf(Ret = 0, "(ERROR/ABORTED)", "successfully")
End Sub
Private Sub Form_Click()
'cancel filecopy
bCancel = 1
End Sub
'in a module
Public Const PROGRESS_CANCEL = 1
Public Const PROGRESS_CONTINUE = 0
Public Const PROGRESS_QUIET = 3
Public Const PROGRESS_STOP = 2
Public Const COPY_FILE_FAIL_IF_EXISTS = &H1
Public Const COPY_FILE_RESTARTABLE = &H2
Public Declare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long
Public bCancel As Long
Public Function CopyProgressRoutine(ByVal TotalFileSize As Currency, ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency, ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal hDestinationFile As Long, ByVal lpData As Long) As Long
'adjust the caption
Form1.Caption = CStr(Int((TotalBytesTransferred * 10000) / (TotalFileSize * 10000) * 100)) + "% complete..."
'allow user input
DoEvents
'continue filecopy
CopyProgressRoutine = PROGRESS_CONTINUE
End Function

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες