---

Hallo @ all,

Was kann das sein???
Ich habe ein VBA-Program erstellt, in dem folgende Befehle vorkommen:

        FileCopy znrpfadaktuell, znrpfadalt
        Kill znrpfadaktuell

Wenn ich das bei mir am PC starte, funktioniert alles. (Die Datei wird in ein anderes Verzeichnis kopiert und in dem alten Verzeichnis gelöscht.)
Wenn ich jetzt dieses Programm auf einem PC der anderen User starte, funktioniert das nicht. (Die Datei wird zwar kopiert aber nicht gelöscht.) Die User haben alle ändern Rechte auf den Verzeichnissen. An meinem PC ist VB6 komplett installiert, bei den Usern nicht. Fehlt dort vielleicht eine dll???

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

hast du dein Programm auf den anderen Rechnern installiert oder nur die EXE rüberkopiert und gestartet?

VB benötigt seine Runtime-Dateien. Diese werden bei der Erstellung des Setups ins Setup mit aufgenommen und auf dem Rechner installiert, wo die Software laufen soll. Wenn die DLLs installiert sind kannst du eine neue EXE einfach rüberkopieren und starten. Sobald du jedoch neue DLLs oder OCX einbindest müssen diese entweder mittels neuem Setup installiert oder manuell auf den anderen Rechnern registriert werden.

Eigentlich meckert VB wenn die Runtime fehlt. Bekommst du sonst keine Fehlermeldung?

Grüsse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Ulf,

danke für den Tipp, aber das ist es leider nicht.
Ich habe noch etwas weiter probiert und habe mich mal an der Workstation des Kollegen angemeldet. Dann funktioniert alles. Der einzigste Unterschied zwischen ihm und mir ist, das ich zu einer lokalen Admingruppe gehöre. Aber auf das Verzeichnis, wo die Datei gelöscht werden soll haben wir beiden die gleichen Rechte. Also von der Software her ist da kein Problem...

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

vielleicht hat dein Kollege generell keine Rechte Dateien zu löschen?

Grüsse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

doch. Das ist ja gerade das komische. Wenn er in den Explorer rein geht, kann er genau die Datei, wo VBA/ACAD meckert, löschen. Ohne Probleme...

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

dann probiere es mal mit dem FILESYSTEMOBJECT zu löschen.

Grüsse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Ulf,

das hab ich schonmal versucht. Da wird die scrrun.dll angemeckert. Ich habe auch ein Buch über VBA, da steht eine scrrun.dll mit ca. 400kb drin. Meine hat aber nur ca. 125kb. Hab auch schonmal im Internet gesucht, aber ich finde nichts und mit dem fso komm ich so nicht weiter.
Ich finde in der Hilfe und in dem Buch auch keine richtigen Beispiele, um eine bestimmte Datei zu löschen. Was muß man da denn unter ACAD für einen "Namen für einen Filesystemobject" angeben?

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

weiß nicht obŽs hilft aber ich habe eine Routine geschrieben in der alle *.dwg Files in einer FileListBox dargestellt werden.
Dort kannder User dann eine auswählen und löschen.
Der Code dazu :

Private Sub Löschen_File_Click()
On Error goto Fehlerbehandlung:
If frmDatenbank.File1.FILEName = "" Then
    Rigo = MsgBox("Was,soll gelöscht werden ?", vbQuestion, "???")
    Exit Sub
End If
Rigo = InputBox("Datei löschen !", "Löscher", frmDatenbank.File1.FILEName, X, Y)
If Not Rigo = "" Then
    Dummy = (frmDatenbank.Dir1.Path & "\" & Rigo)
    Kill Dummy
    frmDatenbank.File1.Refresh
End If
Exit Sub
Fehlerbehandlung:
MsgBox "Fehler : " & Err.Description
End Sub

hoffe das hilft irgendwo weiter.
Gruß Rigo

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Rigo,

nett gemeint, aber dann hab ich wieder den Befehl mit "kill". Da gibt es ja irgendwie Probleme mit den Rechten...

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

SCRRUN.txt

Hallo Heiko,

anbei meine SCRRUN.dll. Habe Sie umbenannt nach scrrun.txt. Meine Dateinummer ist 5.6.0.6626.

Hoffe dir geholfen zu haben.

Grüsse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

vielleicht ist dieses ja eine Alternative zu 'kill',
da Du schreibst, dass es im Explorer geht.
Habe den Code auch aus einem Buch, muss aber dazusagen
dass ich nicht so recht durchgestiegen bin, einfach zu hoch 

naja vielleicht kannst Du ja was verwenden...

Gruss Nancy
--

Option Explicit
Const FO_DELETE = &H3
Const FOF_ALLOWUNDO = &H40
Type SHFILEOPSTRUCT
  hwnd As Long
  wFunc As Long
  pFrom As String
  pTo As String
  fFlags As Integer
  fAbortet As Boolean
  hNameMaps As Long
  sProgress As String
End Type

Declare Function SHFileOperation Lib "shell32.dll" Alias _
  "SHFileOperationA" (lpFileOP As SHFILEOPSTRUCT) As Long
Public Function SafeDelete(ParamArray files() As Variant)
Dim i As Integer, fileNames$
Dim SHFileOp As SHFILEOPSTRUCT
For i = LBound(files) To UBound(files)
  fileNames = fileNames & files(i) & vbNullChar
Next
fileNames = fileNames & vbNullChar
With SHFileOp
  .wFunc = FO_DELETE
  .pFrom = fileNames
  .fFlags = FOF_ALLOWUNDO
End With
SafeDelete = SHFileOperation(SHFileOp)
End Function

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja, danke an Euch beiden. Ich probiere das Freitag mal aus, wenn ich wieder auf der Firma bin. Danke schonmal für Hilfe. Ich hoffe es klappt.

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Hobel,

ja die Datei liegt auf dem Netzwerk. Es kann aber eigendlich kein Software Fehler sein. Wenn ich mich an den anderen PC's anmelde, funktioniert Alles. Nur wenn sich der jeweilige User anmeldet, bricht er beim Befehl "Kill" ab. Das Programm hat also dann beim löschen anscheinend nicht die gleichen Rechte wie der User sie im Explorer hat, weil da kann er die Datei ohne weiteres löschen. Ich habe es schon versucht, den User als Hauptbenutzer und als Admin (beides Lokal) einzurichten, aber das hilft auch nichts.

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP