19. november 2006 - 02:48Der er
6 kommentarer og 1 løsning
Åbne en bestemt exe fra cd-rom
jeg har en form med en knap, den form skal auto starte fra en cd. når den så er åbnet vil jeg gerne med knappe åbne en bestemt exe file der også ligger på cd-romen hvordan gør man det, man ved jo aldrig hvad drev naven cd-rommen har hos de forskellige.
Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Sub Command1_Click() Dim i As Integer Dim strDrive As String Dim strFilename As String
' Hvis din exe-file er i en under mappe så er det sådan: "subfolder\test.exe" strFilename = "test.exe"
For i = 68 To 90 strDrive = (Chr$(i) & ":") ' D:\ .. Z:\ If GetDriveType(strDrive) = 5 Then ' 5 = CD/DVD-ROM If CBool(PathFileExists(strDrive & strFilename)) = True Then ' strDrive & strFilename = CD-ROM:\test.exe Shell strDrive & strFilename, vbNormalFocus End If End If Next End Sub ' ---------------------- Form1 ----------------------
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.