Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: Jak dadać literke ? zero Typ: neutral Postów: 5 Zarejestrowany: Aug 2003 Jak dadać literke ? Jak dodać jeszcze jedno literkę np E do tego ? Shell (" D:/jakiś program.exe " ) Bardzo proszę o odpowiedź. _____________________________________________ serw 07-08-2003 20:25 losmac "profesorek" Typ: neutral Postów: 758 Zarejestrowany: May 2003 Jaką literkę, gdzie? Powiedz co chcesz uzyskać. _____________________________________________ POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś 08-08-2003 00:32 zero Typ: neutral Postów: 5 Zarejestrowany: Aug 2003 Literka Chodzi mi o to, że jak włożę płytę Cd-rom, to żeby program rozpoznał czy to jest dysk D , czy E. Chcę zrobić w programie było odwołanie do dysku E i D. Przykład. Masz dysk podzielony na partycje i co wtedy, zamiast płyty Cd-rom, wyskakuje ci dysk twardy. U mnie jest D, a u kogoś będzie E. Konkretnie. Mam formatke nakładam przycisk, przycisk uruchamia program z płyty, ale albo z D, lub E. Bo nie wiem jak zrobić inaczej. Bardzo proszę pomóż jakoś. _____________________________________________ serw 08-08-2003 09:28 losmac "profesorek" Typ: neutral Postów: 758 Zarejestrowany: May 2003 Tu masz opis funkcji: GetDriveType Funkcja GetDriveType zwraca informację o tym, czy dany dysk jest dyskiem wymiennym, CD-ROM, dyskiem sieciowym, czy innym. Składnia: UINT GetDriveType(LPCTSTR lpRootPathName); Parametry: lpRootPathName - litera dysku. Jeżeli ten parametr jest równy NULL, funkcja użyje litery dysku bieżącej ścieżki. Zwracane wartości: Mogą przyjąć jedną z wartości: Wartość Znaczenie 0 Dysk nie może być określony. 1 Dysk nie istnieje. DRIVE_REMOVABLEDysk jest dyskiem wymiennym. DRIVE_FIXED Dysk jest dyskiem Niewymiennym. DRIVE_REMOTEDysk jest dyskiem sieciowym. DRIVE_CDROM Dysk jest dyskiem CD-ROM. DRIVE_RAMDISKDysk jest dyskiem wirtualnym (RAM). A tu przykład wykorzystania: Sekcja deklaracji: Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal lpString As String) As Long Przykładowa procedura: Sub WyliczDyski() Dim i As Long, j As Long Dim strTemp As String Dim dyski() As Variant j = 0 For i = 65 To 90 If CzyDysk(Chr(i) & ":" Then strTemp = strTemp & Dysk(Chr(i) & ":\" & vbCr ReDim Preserve dyski(j) dyski(j) = Chr(i) & ":\" j = j + 1 End If Next i MsgBox "Zainstalowanych dysków: " & vbTab & UBound(dyski()) + 1 & vbCr & vbCr & _ "z tego: " & vbCr & _ strTemp End Sub Function CzyDysk(sc As String) As Boolean Dim l As Long l = GetDriveType(sc) Select Case l Case 0, 1 CzyDysk = False Case 2 To 6 CzyDysk = True End Select End Function Function Dysk(sc As String) As String Dim l As Long l = GetDriveType(sc) Select Case l Case 0, 1 Dysk = sc & vbTab & "- nie istnieje lub nie można go określić!" Case 2 Dysk = sc & vbTab & "- jest dyskiem wymiennym." Case 3 Dysk = sc & vbTab & "- NIE jest dyskiem wymiennym." Case 4 Dysk = sc & vbTab & "- jest dyskiem sieciowym." Case 5 Dysk = sc & vbTab & "- to CD-ROM." Case 6 Dysk = sc & vbTab & "- dysk wirtualny (RAM)." End Select End Function Ten i inne przykłady znajdziesz w materiałach (*.hlp) dostępnych pod adresem: Polecam też moją książkę: _____________________________________________ POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś 08-08-2003 09:44 zero Typ: neutral Postów: 5 Zarejestrowany: Aug 2003 Odp. Dziękuje za odpowiedź. Zapraszam na stronę : www.serwkomp.org.pl Ze stroną mogą być problemy, z powodu chłopców, którzy cały czas robią coś na serwerze. _____________________________________________ serw 08-08-2003 09:52 Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |