VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	22.11.2017 00:01:47	Mareike
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	22.11.2017 05:35:30	fransi
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	22.11.2017 22:46:10	Mareike
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	23.11.2017 07:25:11	Gast23345
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	23.11.2017 18:29:40	Mareike
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	23.11.2017 19:19:21	Gast77197
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	23.11.2017 22:27:22	Mareike

Ansicht des Beitrags:

Von:
fransi

Datum:
22.11.2017 05:35:30

Views:
634

Rating:

Antwort:

Thema:
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist

Option Explicit

Sub MachWasDraus()
'************************************************************************
'aber bedenke, dass nicht alle Prozesse auch die geöffnete Datei sperren!
'************************************************************************
Dim Programm As String
Dim Dateipfad As String

   'Test
   Programm = "waveedit.exe"
   Dateipfad = "E:\VBA\Test.mp3"
   
   'wenn Programm
   If CBool(IstAktiv(Programm)) Then
      If IstGesperrt(Dateipfad) Then _
         Call MsgBox(Dateipfad & vbNewLine & Programm, vbExclamation, "In Gebrauch")
   End If

End Sub

LG fransi

Private Function IstAktiv(Was As String) As Long
Dim Obi As Object

Set Obi = GetObject("winmgmts:") _
    .ExecQuery("select * from win32_process where name='" & Was & "'")

IstAktiv = Obi.Count

End Function

Private Function IstGesperrt(Pfad As String) As Boolean

  On Error Resume Next
  Open Pfad For Binary Access Read Write Lock Read Write As #1
  Lock #1
  Unlock #1
  Close #1
  IstGesperrt = CBool(Err.Number)
  On Error GoTo 0
  
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
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	22.11.2017 00:01:47	Mareike
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	22.11.2017 05:35:30	fransi
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	22.11.2017 22:46:10	Mareike
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	23.11.2017 07:25:11	Gast23345
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	23.11.2017 18:29:40	Mareike
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	23.11.2017 19:19:21	Gast77197
Nur Programm (nicht MS-Office) öffnen, falls es noch nicht geöffnet ist	23.11.2017 22:27:22	Mareike