VBµ÷ÓÃcmd
ÎÒÏëÓÃVB×ö¸ö´ÅÅÌÐÞ¸´³ÌÐò.ÔÚ½çÃæÉÏÓиötext1,ÔÚÀïÃæ¿ÉÊäÈëÅÌ·û,ÊäÈëÅÌ·ûºóµã"¿ªÊ¼"°´Å¥,¼´¿É¶Ôtext1.textÖÐËùÊäÈëµÄÅÌ·û½øÐÐÐÞ¸´.ÎÒËùÓõĴúÂëÊÇ:Shell "CHKDSK text1.text:/F".µ«²»ÄÜʵÏÖЧ¹û,Çë¸ßÊÖÖ¸½Ì.Áí:ÄÜ·ñʵÏÖ²»ÏÔʾcmd½çÃæ,µ«ÐÞ¸´ÍêºóÄÜÒÔmsgbox½øÐÐÌáʾ?лл
Shell "CHKDSK text1.text:/F",0
²»ÏÔʾcmd½çÃæ
shell "chkdsk " & text1.text & " :/F" ,0
ÓÃmsgboxÏÔʾ½á¹û²»ºÃ×ö¡£
¿ÉÒÔÓÃ"ÖØ¶¨ÏòÃüÁî"°Ñ½á¹û´æµ½ÎļþÖУ¬ÔÚ´ò¿ªÎļþ£¬ÓÃmsgbox ÏÔʾ¡£
ÄÜ·ñÔÚÐÞ¸´ÍêºóÁíÒÔÌáʾ¿òµÄÐÎʽ½øÐÐÌáʾ?
Áí:ÎÒÊÔ¹ýShell "CHKDSK text1.text:/F",µ«¾ÍÊÇû·´Ó³,Ò²²»¼ûcmd´°¿Úµ¯³ö.
Shell "CHKDSK" & Text1.Text & " :/F" ÔÚ¿ªÊ¼Ð´µÄʱºòÎÒÒ²ÊÔ¹ýÁË,Ò»µ÷ÊÔ¾ÍÌáʾÎļþδÕÒµ½.
VB code:
Shell "CHKDSK.exe" & " " & Text1 & "/F", vbHide
Shell "CHKDSK.exe" & " " & Text1.Text & "/F" û·´Ó¦.
Shell "CHKDSK.exe" & " " & Text1.Text & ":/F" ¿ÉÒÔʵÏÖЧ¹û.¼ÓÁËvbHideËäÈ»¿ÉÒÔÈÃcmd´°¿Ú²»ÏÔʾ,µ«Ôõô²ÅÄÜÖªµÀ´ÅÅÌÒÑÐÞ¸´Íê³ÉÁËÄØ?
ÐÞ¸´Íê³ÉºóµÄÌáʾ´úÂëÎÒÒÑÍê³É,²¢²âÊÔOK.лл¸÷λÈÈÐĵİïæ.
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½
Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£
mark
pls learn from ba ......