Deklaration: Declare Function DeleteFile Lib "kernel32.dll" _ Alias "DeleteFileA" ( _ ByVal lpFileName As String) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function DeleteFile Lib "kernel32.dll" _ Alias "DeleteFileA" ( _ ByVal lpFileName As String) As Long Private Declare Function CopyFile Lib "kernel32.dll" _ Alias "CopyFileA" ( _ ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long Private Sub Command1_Click() Dim Retval As Long Retval = CopyFile("c:\Autoexec.bat", "c:\windows\Desktop\TmpAutoexec.txt", 0) If Retval = 0 Then MsgBox "Die angegebene Datei existiert bereits", vbInformation + _ vbOKOnly, "Kopieren Fehlgeschlagen" Exit Sub Else MsgBox "Kopieren war erfolgreich, die Datei wird nun wieder gelöscht.", _ vbInformation + vbOKOnly, "Datei wird gelöscht" Retval = DeleteFile("c:\windows\Desktop\TmpAutoexec.txt") If Retval = 1 Then MsgBox "Die Datei wurde erfolgreich gelöscht", vbInformation + _ vbOKOnly, "Löschen erfolgreich" Else MsgBox "Die Datei konnte nicht gelöscht werden.", vbInformation + _ vbOKOnly, "Löschen fehlgeschlagen" End If End If End Sub Diese Seite wurde bereits 15.249 mal aufgerufen. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox 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. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||
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. |