Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler beim Kompilieren
14.12.2020 12:39:47 r-heu
NotSolved
14.12.2020 12:49:04 Torsten
*****
Solved
14.12.2020 13:02:36 Gast33175
Solved
12.01.2022 14:14:30 Dominik
NotSolved
13.01.2022 11:28:54 Gast6782
NotSolved
13.01.2022 12:45:56 volti
NotSolved

Ansicht des Beitrags:
Von:
r-heu
Datum:
14.12.2020 12:39:47
Views:
343
Rating: Antwort:
  Ja
Thema:
Fehler beim Kompilieren

Ich versuche ein Dokument in den Papierkorb zu verschieben - am Computer hat das ganze noch geklappt - am PC nun nicht mehr.

Kann mir jmd bitte weiterhelfen?

 

Die Fehlermeldung lautet: Der code in diesem Projek tmuss für di eVerwendung auf 64- Bit-Systemen aktualisiert werden. Überarbeiten und aktualisieren sie Declare-Anweisungen, und markieren Sie sie mit dem PtrSafe-Attribut.

 

Private Type SHFILEOPSTRUCT
   hWnd                  As Long     ' HWND            hwnd
   wFunc                 As Long     ' UINT            wFunc
   pFrom                 As String   ' LPCSTR          pFrom
   pTo                   As String   ' LPCCSTR         pTo
   fFlags                As Integer  ' FILEOP_FLAGS    fFlags
   fAnyOperationsAborted As Long     ' BOOL            fAnyOperationsAborted
   hNameMappings         As Long     ' LPVOID          hNameMappings
   lpszProgressTitle     As String   ' LPCCSTR         lpszProgressTitle // only used if FOF_SIMPLEPROGRESS
End Type
 
' Konstanten für wFunc
Private Const FO_DELETE          As Long = &H3   ' Dateien löschen
 
' Konstanten für fFlags
Private Const FOF_NOCONFIRMATION As Long = &H10  ' Keine Bestätigungen anfordern
Private Const FOF_ALLOWUNDO      As Long = &H40  ' in Papierkorb verschieben
Private Const FOF_FILESONLY      As Long = &H80  ' bei WildCards *.* nur auf Dateien beziehen
 
Private Declare Function SHFileOperation Lib "shell64.dll" _
   Alias "SHFileOperationA" ( _
   lpFileOp As SHFILEOPSTRUCT) As Long
 
Public Function DateiLoeschen(Dateipfade As String, _
                              Optional ByVal InPapierkorb As Boolean, _
                              Optional ByVal MitRueckfrage As Boolean, _
                              Optional ByVal MitUnterordnern As Boolean) As Boolean
 
   ' Quelle: http://www.dbwiki.net/
 
   Dim fo As SHFILEOPSTRUCT
 
   ' Datei löschen
   fo.wFunc = FO_DELETE
 
   fo.pFrom = Dateipfade
   ' ggf. Chr$(0) anfügen
   If Right$(fo.pFrom, 1) <> vbNullChar Then
      fo.pFrom = fo.pFrom & vbNullChar
   End If
 
   ' in Papierkorb verschieben?
   If InPapierkorb = True Then
      fo.fFlags = FOF_ALLOWUNDO
   End If
 
   ' mit Rückfrage?
   If Not MitRückfrage Then
      fo.fFlags = fo.fFlags Or FOF_NOCONFIRMATION
   End If
 
   ' mit Unterordnern (bei Angabe von \*.*)?
   If Not MitUnterordnern Then
      fo.fFlags = fo.fFlags Or FOF_FILESONLY
   End If
 
   DateiLoeschen = Not CBool(SHFileOperation(fo))
 
End Function

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler beim Kompilieren
14.12.2020 12:39:47 r-heu
NotSolved
14.12.2020 12:49:04 Torsten
*****
Solved
14.12.2020 13:02:36 Gast33175
Solved
12.01.2022 14:14:30 Dominik
NotSolved
13.01.2022 11:28:54 Gast6782
NotSolved
13.01.2022 12:45:56 volti
NotSolved