Deklaration: Declare Function MoveFile Lib "kernel32.dll" _ Alias "MoveFileA" ( _ ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim Retval As Long ' Datei umbenennen Retval = MoveFile("C:\Autoexec.bat", "C:\Autoexec.666") If Retval = 0 Then MsgBox "Verschieben oder Umbenennen fehlgeschlagen", vbInformation, "Fehler" Exit Sub Else MsgBox "Die Datei wurde erfolgreich umbenannt, das Orginal wird nun " & _ "wieder hergestellt.", vbInformation, "Umbenennen" End If ' Rückgängig machen Retval = MoveFile("C:\Autoexec.666", "C:\Autoexec.bat") If Retval = 0 Then MsgBox "Das Original konnte nicht wiederhergestellt werden.", vbCritical, "Fehler" End If End Sub Diese Seite wurde bereits 16.640 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. |
||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |