27
4
CFSDN nhấn mạnh vào việc tạo ra giá trị thông qua mã nguồn mở. Chúng tôi cam kết xây dựng một nền tảng chia sẻ tài nguyên để mọi người làm CNTT có thể tìm thấy thế giới tuyệt vời của riêng mình tại đây.
Bài đăng trên blog CFSDN VBS Tutorial: Method - GetDrive method này được tác giả thu thập và biên soạn. Nếu bạn quan tâm đến bài viết này, vui lòng thích nó.
Phương pháp GetDrive.
Trả về đối tượng Drive tương ứng với ổ đĩa trong đường dẫn đã chỉ định.
đối tượng.GetDrive drivespec .
tham số.
sự vật .
Yêu cầu. Phải là tên của FileSystemObject.
ổ đĩa đặc tả.
Yêu cầu. drivespec có thể là một ký tự ổ đĩa (c), một ký tự ổ đĩa theo sau là dấu hai chấm (c:), một ký tự ổ đĩa theo sau là dấu hai chấm và dấu phân cách đường dẫn (c:\), hoặc bất kỳ chia sẻ mạng cụ thể nào (\\computer2\share1).
minh họa.
Đối với chia sẻ mạng, hãy kiểm tra để đảm bảo chia sẻ mạng đó tồn tại.
Lỗi sẽ xảy ra nếu drivespec không tuân theo định dạng được chấp nhận hoặc không tồn tại. Để sử dụng chuỗi đường dẫn đủ điều kiện khi gọi phương thức GetDrive, hãy sử dụng trình tự sau để lấy chuỗi khớp với drivespec:
DriveSpec = GetDriveName(GetAbsolutePathName(Đường dẫn)).
Ví dụ sau đây cho thấy cách sử dụng phương thức GetDrive:
Hàm ShowFreeSpace(drvPath) Dim fso, d, s Đặt fso = CreateObject("Scripting.FileSystemObject") Đặt d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Ổ đĩa " & UCase(drvPath) & " - " s = s & d.VolumeName & "
" s = s & "Không gian trống: " & FormatNumber(d.FreeSpace/1024, 0) s = s & " Kbytes" ShowFreeSpace = sEnd Hàm.
Cuối cùng, bài viết này về VBS Tutorial: Method-GetDrive Method đã có ở đây. Nếu bạn muốn biết thêm về VBS Tutorial: Method-GetDrive Method, vui lòng tìm kiếm các bài viết trên CFSDN hoặc tiếp tục duyệt các bài viết liên quan. Tôi hy vọng bạn sẽ ủng hộ blog của tôi trong tương lai! .
27
4
0
Tôi đã tạo một macro nhập thông tin xác thực bằng cách sử dụng trình ghi macro của IBM Personal Communications 12.0.3.0. Khi gọi, nó chỉ lấy tên người dùng và mật khẩu của tôi. sub Credentials() Dim
Lô này thay đổi mã vbs khiến nó không thể được vbs sử dụng. Tôi có thể khắc phục điều này bằng cách nào? Lô: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
Tôi có 2 tập tin vbs. A.vbs: Kiểm tra lớp public a public b Kết thúc lớp B.vbs: Dim objShell Set objShell =
Sau đây là các mục nhập tôi sử dụng để thử tạo thư mục ảo trong IIS 6: [Chạy] Tên tệp: {tmp}\cscript.exe mkvirtdir.vbs; Tham số: "-c LocalHo
Mã vbs cốt lõi? 1
Có hai cách để triển khai ping trong vbs: 1. Gọi lệnh ping của hệ thống; 2. Sử dụng wmi để truy vấn quá trình xử lý lớp pingstate. 1. Gọi lệnh ping hệ thống
Khi tôi đang xem phát triển VB, tôi đột nhiên có ý tưởng sử dụng mảng hai chiều làm cấp độ trò chơi khi tôi thấy một mảng hai chiều; 1. Chọn thao tác: Khi trò chơi bắt đầu, bạn sẽ được nhắc chọn ba tùy chọn: đăng ký, đăng nhập và đăng xuất. 2. Đăng ký: Nếu đăng ký thành công, tài khoản người dùng và mật khẩu sẽ được lưu trong tệp txt dữ liệu người dùng
Sao chép tệp đã chỉ định vào thư mục đã chỉ định Mã lõi? 1
Sao chép mã Mã như sau: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
Hãy đảm bảo bạn đã cài đặt Word trên máy tính trước khi chạy. Sao chép mã code như sau: i=0 set wshshell=createobject("wscript.shell") Set objWo
Mã tham chiếu 1: Sao chép mã như sau: Hàm DeleteLog() Dim objFSO, objFolder, strPath,
Một đoạn mã rất thực tế, thực sự hữu ích cho việc nghiên cứu chuyên sâu về vbs. Sao chép mã Mã như sau: On Error Resume Next 'Bỏ qua tất cả các lỗi Dim filename 'Khai báo biến Di
Tôi chỉ muốn thực hành trong thời gian rảnh rỗi và ban đầu tôi đã đạt được điều mà tôi nghĩ là tải xuống "đa luồng". (Còn về việc có đa luồng hay không, bạn có thể tham khảo link ở tầng 12) Để tránh trùng lặp, một số kiểm tra lỗi đã bị lược bỏ. Tôi không nghĩ nó có nhiều ứng dụng thực tế. Anh em nào quan tâm có thể cùng nhau nghiên cứu và thảo luận. Chào mừng bạn đến sửa lỗi cho tôi: Sao chép
Sao chép mã: đặt oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 cho i=1 đến 10 &n
Sao chép mã Mã như sau: khi lỗi tiếp tục tiếp tục url tiếp theo = " http://www.bathome.net/logging.php?action=login "
Biểu đồ hiệu ứng: Mã được đóng gói thành một hàm để dễ gọi: Sao chép mã Mã như sau: Key = "www-enun-net" 'Không sử dụng số
Mở Dog Film and Television, tìm kiếm tài nguyên bạn cần và chọn loại tài nguyên: eMule, như hiển thị bên dưới: Tôi tìm thấy một tài nguyên có dung lượng 19,75 GB: Nhấp vào đó và giao diện hiển thị bên dưới sẽ xuất hiện. Bạn có thể thấy rằng địa chỉ tải xuống thông thường đã bị chặn. Chúng tôi sao chép URL trong thanh địa chỉ để sử dụng sau này.
Gần đây, các bản sao lưu liên quan đã diễn ra thường xuyên. Để xác minh tính toàn vẹn của tệp, tôi luôn phải mở công cụ xác minh HASH tệp, điều này rất phiền phức. Vì vậy, tôi đã viết điều này. Việc tính toán hơi chậm khi tệp lớn. Giá trị MD5 của tệp được lưu trong bảng tạm! Hiệu quả như hình minh họa: Cách sử dụng: 1.
Đường dẫn hiện tại của CMD Sao chép mã Mã như sau: test = createobject("Scripting.FileSystemObject").GetF
Cấu trúc cơ bản của câu lệnh For Next là: Sao chép mã như sau: For counter = start To end [Step step] [statements] [Exit For] [st
Trung tâm cá nhân
Bài viết phát hành
từ bỏ
Tôi là một lập trình viên xuất sắc, rất giỏi!