Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Datei kopieren und vorher Programm beenden (wenn aktiv)

Frage Entwicklung

Mitglied: svenac2010

svenac2010 (Level 1) - Jetzt verbinden

07.09.2010 um 11:59 Uhr, 3395 Aufrufe, 1 Kommentar

Hallo Habe folgendes Script:


Option Explicit

' Variablendeklaration
Dim objFSO, objShell
Dim strUser
Dim strPathQuelle, strPathZiel
Dim strFile, strFileQuelle, strFileziel

' Objekte erzeugen
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.shell")

' Jetzt die weiteren Aktionen starten…

strPathZiel = "C:\KB\"
strPathQuelle = "\\\"

strFile ="TEST.chm"

strFileQuelle = strPathQuelle & strFile
strFileziel = strPathZiel & strFile

If objFSO.FileExists(strFileQuelle) = True And objFSO.FileExists(strFileziel) _
= False Then
' kopiere die Datei wenn Sie auf dem Quelllaufwerk vorhanden ist aber nicht
' auf dem Ziellaufwerk
objFSO.Copyfile strFileQuelle, strFileziel, True
ElseIf objFSO.FileExists(strFileQuelle) = True And objFSO.FileExists( _
strFileziel) = True Then
' kopiere die Datei wenn die auf dem Quelllaufwerk aktueller ist als die
' auf dem Ziellaufwerk
Set strFileQuelle = objFSO.getfile(strFileQuelle)
Set strFileZiel = objFSO.getfile(strFileziel)
If strFileQuelle.DateCreated > strFileZiel.DateCreated Then
objFSO.Copyfile strFileQuelle, strFileziel, True
End If
ElseIf objFSO.FileExists(strFileQuelle) = False And objFSO.FileExists( _
strFileziel) = True Then
' lösche die Datei wenn Sie auf dem Quelllaufwerk nicht vorhanden ist aber
' auf dem Ziellaufwerk
objFSO.DeleteFile strFileziel
End If

Sobald ich dieses aber ausführe und das CHM ist geöffnet gibt erscheint eine FM Erlaubnis verweigert.

Habe mir gedacht, beende CHM wenn aktiv:

Set WshShell = WScript.CreateObject("WScript.Shell")
If WshShell.AppActivate("TEST") Then
WScript.Sleep 100
WshShell.SendKeys "%{F4}"
End If

Versuche ich aber das beenden Script in das vorherige zu integrieren ( an verschiedenen Stellen) bekomme ich aber nur ein Ausführungsfehler.

Wie kann ich beide Scripte zu einem Zusammen fassen.
Sprich prüfe ob CHM ausgeführt wird, wenn ja dann beende und setzte script fort, wenn CHM nicht aktiv, dann setzte Script fort
Mitglied: bastla
07.09.2010 um 22:44 Uhr
Hallo svenac2010!

Versuch es mit folgendem Code zum Schließen der "TEST.chm":
01.
Dim objWMIService, colItems 
02.
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")  
03.
Set colItems = objWMIService.ExecQuery( _ 
04.
    "SELECT * FROM Win32_Process WHERE CommandLine LIKE '%" & strFile & "'") 
05.
For Each objItem in colItems 
06.
    objItem.Terminate 
07.
Next
Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Batch & Shell
gelöst Ordner per Batch verschieben, Datei kopieren (2)

Frage von Shape.Shifter zum Thema Batch & Shell ...

C und C++
gelöst In einer Windows Form Anwendung per Button eine Datei kopieren (4)

Frage von Knuefi zum Thema C und C ...

Batch & Shell
gelöst Powershell Datei kopieren mit ACL Script funktioniert nicht (4)

Frage von xpxy15 zum Thema Batch & Shell ...

Batch & Shell
Batch: Word Datei kopieren und umbennen (9)

Frage von ExcelNoob177 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...