AW: Hier nun die Datei mit ThisWorkbook.Close
07.08.2008 13:50:00
Ramses
Hallo
Auf die Schnelle (Neben Application.Quit)
Öffnen
Private Sub Workbook_Open()
Dim PathE As String
Sheets("Tabelle1").Range("A1") = Application.Version
Sheets("Tabelle1").Range("A2") = ThisWorkbook.Path
End Sub
Und nun ?
Es steht nach dem öffnen immer noch der Pfad v.z.B. dem USB -Stick
Er wird auch nach dem erstellen der neuen Ordnerstruktur "Call Kopieren"
filesystem.CopyFolder PathE, "C:\Obedience\HSVInnSalzach"
nicht mehr angepasst.
Deine ganzen nachfolgenden Pfadangaben verweisen dann immer noch auf den USB-Stick
************************
Call Wech
If Dir("C:\Obedience") = "" Then
Mldg = MsgBox("Die bestehende Ordnerstruktur Obedience" & Chr(13) & "wurde in den Papierkorb verschoben." & Chr(13) & "Bitte Clicken Sie auf JA um die neue Struktur zu kopieren.", _
vbYesNo + vbQuestion, "Ein Hinweis von easy-obedience...")
If Mldg = vbNo Then
MsgBox "Diese Applikation wird nun geschlossen, da" & Chr(13) & "Sie anscheinend Obedience zu einem anderen Zeitpunkt kopieren möchten.", _
vbExclamation, "Sie können easy-obedience vertrauen"
Application.DisplayAlerts = False
ThisWorkbook.Close
Exit Sub
Else
Das ist die Hammeranweisung, noch schlimmer als Quit.
Da werden einfach ohne Rückfrage Ordner, Dateien und evtl. vorhandene Daten gelöscht und zum schluss noch scheinheilig festgestellt, dass der Benutzer die Installation anscheinend später machen möchte
*******************
Modul1-Werkzeug
Das ist sinnlos
"...If Dir(strFile1) "" And Dir(strFile) = "" Then.."
StrFile1 ist doch Application.WorkbookPath/Tools/Refedit.DLL
Und daraufhin soll die Mappe geschlossen werden ?
Ich denke die Refedit.dll SOLL in Tools sein !?
*****************
strFile = "C:\Programme\Microsoft Office\" & A & "\REFEDIT.DLL"
strFile1 = B & "\Tools\REFEDIT.DLL"
Name strFile1 As strFile ?
Was soll das umbenennen bewirken ? Die heissen doch schon gleich ausserdem sind sie auf unterschiedlichen Laufwerken und Pfaden
**********************
If Dir(strFile1) "" And Dir(strFile) "" Then
Mldg = MsgBox("Das System meldet, dass auf diesem PC" & Chr(13) & "die Datei REFEDIT.DLL veraltet ist."
Woher willst du wissen die Datei veraltet ist ?
Du unternimmst keine Versionsprüfung und keinen Datumsvergleich
************************
strFile = "C:\Programme\Microsoft Office\" & A & "\REFEDIT.DLL"
strFile1 = B & "\Tools\REFEDIT.DLL"
strFile2 = "C:\Programme\Microsoft Office\" & A & "\REFEDIT_ALT.DLL"
If Dir(strFile2) "" Then
Kill strFile2
End If
Name strFile As strFile2 ?
Name strFile1 As strFile
Und dann ? du bennenst die Datei auf deinem Stick um ?
Was ist mit der Datei im Verzeichnis ?
*******************************
Den Rest des codes spare ich mir nun.
Da hast du ja schon was zum nachschauen
Gruss Rainer